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1.0  INTRODUCTION 


The  purpose  of  this  report  is  to  review  the  work  performed  and  the 
results  obtained  since  completion  of  the  previous  delivery  order  reported 
in  [1].  The  goal  of  this  work  was  to  provide  a  statistical  evaluation  of 
IHAWK  radomes.  The  areas  of  work  performed  include  System  Evaluation  Test 
Chamber  (SETC)  preparations,  radome  measurements,  and  data  processing. 

Section  2  of  this  report  will  present  the  hardware  and  software 
changes  incorporated  to  improve  the  accuracy  of  data.  Changes  in  test 
methods,  the  Radome  Positioner  software,  and  the  Radome  Measurements 
System  software  resulted  in  improved  accuracy  by  improving  the  acquisition 
process.  The  actual  tests  performed  and  the  results  of  those  tests  are 
found  in  Section  3  while  Section  4  provides  a  description  of  the  pro¬ 
cessing  means  used  to  analyze  and  to  plot  data.  Section  5  presents  an 
outline  of  the  major  problems  and  difficulties  encountered  during  perfor¬ 
mance  of  the  task.  Conclusions  and  recommendations  for  possible  future 
improvements  are  presented  in  Section  6. 
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2.0  SYSTEM  EVALUATION  TEST  CHAMBER  (SETC)  PREPARATION 

2.1  Introduction 


SETC  preparations  continued  throughout  this  task  and  included  recon¬ 
figuring  the  hardware  for  each  entrance  to  the  SETC.  This  was  essential 
since  several  groups  share  the  SETC  and  each  requires  a  different  con¬ 
figuration. 

A  Modification  to  the  test  configuration  was  made  by  using  an  offset 
transmitter  horn  configuration  to  induce  a  known  error.  The  error  must 
stay  sufficiently  large  for  the  network  analyzer  to  register  a  stable  phase 
measurement.  Another  SETC  modification  consisted  of  new  software  written 
in  Motorola  6800  assembly  code  and  Fortran  for  the  Radome  Positioner  and 
Radome  Measurements  Receiver  System.  This  software  provides  improved 
operating  systems  which  produce  more  usable,  more  complete  data  sets. 

2.2  Phase  Offset 


Phase  offsets  measured  by  the  network  analyzer  provide  the  signs  of 
error  when  plotting  data.  For  radomes  with  very  small  boresight  errors 
the  network  analyzer  could  not  provide  a  stable  phase  measurement.  Thus,  a 
need  existed  to  find  a  method  to  accurately  test  radomes  with  the  available 
equipment . 

Studying  the  problem  led  to  offsetting  the  transmitting  horn  by  a 
knojn  amount.  The  receiving  antenna  was  boreslghted  on  this  offset  horn. 
After  boresighting,  the  transmitting  horn  was  returned  to  its  original 
center  position  and  scans  were  executed.  Using  this  method,  an  inherent 
error  (the  amount  of  offset),  which  is  of  a  magnitude  Largd  enough  for  the 
network  analyzer  to  operate  accurately,  exists.  This  offset  is  later 
removed  during  data  processing  to  reveal  the  true  magnitude  and  phase  of 
the  boresight  error.  The  arrangement  of  the  transmitting  horn  is 
illustrated  in  Figure  1. 

2.3  Software  Improvements 

Software  improvements  were  made  to  both  the  radome  positioner  operating 
system  and  the  radome  measurements  receiver  system..  Improvements  in  the 
positioner  are  discussed  in  Section  2.3.1,  and  those  for  the  measurements 
receiver  are  discussed  in  Section  2.3.2. 

2.3.1  Radome  Positioner  Improvements 

A  procedure  has  been  developed  for  easy  modification  of  the  Radome 
Positioner  operating  system.  Working  from  previous  documentation,  source 
files  have  been  reconstructed  and  scored  on  master  source  file  diskettes 
with  a  Tektronix  8002a  microprocessor  development  system.  Using  these 
source  files,  the  positioner  program  can  be  modified  and  recompiled  as 
needed.  Subsequently,  PROMs  can  be  programmed  with  modified  programs  and 
Inserted  into  the  M6800  based  microcomputer  which  controls  the  positioner. 
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Presently,  all  modifications  are  implemented  using  the  Tektronix  8002a. 
However,  the  source  files  could  be  transferred  to  any  other  6800 
Development  System. 

Using  the  method  described  above,  a  new  scan  pattern  has  been  imple¬ 
mented  on  the  positioner.  The  previous  positioner  patterns  were  not  ade¬ 
quate  for  thorough  analysis  of  radome  boresight  error  and  antenna  pattern 
measurements.  This  inadequacy  existed  because  the  area  covered  by  the 
scan  was  not  sufficient  to  yield  the  full  scope  of  information  about  the 
antenna  or  radome.  A  careful  analysis  of  the  type  of  data  needed  revealed 
that  the  scan  pattern  illustrated  in  Figure  2  was  the  most  useful  pattern. 
The  two  most  pertinent  reasons  were  that  (1)  the  shape  of  the  radome 
suggested  a  circular  window  and  (2)  the  method  of  data  analysis  intimated  a 
raster-type  scan. 

The  new  pattern  covers  all  data  points  necessary  for  current  boresight 
error  analysis  and  antenna  pattern  measurements.  Execution  of  the  pattern 
(number  3)  requires  the  following  key-in  sequence: 

PROG  3 
32.0 
1.0 


where  32.0°  is  the  radius  of  the  circular  scan  region  and  1.0  is  the  number 
of  degrees  between  each  azimuth  scan.  The  revised  operating  system  is  pre¬ 
sented  in  Appendix  B. 

2.3.2  Radome  Measurements  Receiver  System  Improvements 

A  procedure  has  been  developed  for  modification  of  the  Radome 
Measurement  Receiver  System  operating  system.  Previously,  it  was  believed 
that  all  calculations  associated  with  radome  boresight  error  and  antenna 
pattern  measurements  could  be  done  during  "real-time”  operation.  However, 
it  was  determined  that  the  receiver  could  not  sample  each  point,  perform 
all  of  the  required  calculation,  and  store  the  results  before  the  radome 
reached  the  next  sample  point  for  the  density  of  data  desired.  All  of  the 
calculation  routines  have  therefore  been  removed  from  the  operating  system. 
This  resulted  in  a  more  than  60Z  decrease  in  the  total  size  of  the  object 
code  file.  In  addition  to  this  reduction,  the  FORTRAN  main  routine  was 
decreased  in  size  causing  another  10Z  reduction  of  the  total  operating 
system  size. 

Previously,  it  was  necessary  for  the  operator  to  interact  on  a  machine 
level  in  order  to  select  a  sample  size.  This  interaction  has  been  elimi¬ 
nated  by  enabling  the  FORTRAN  main  routine  to  pass  the  variable  to  the  - 
assembly  routine,  CNTL.  Modifications  have  been  made  to  CNTL  to  enable 
the  receiver  to  sample  on  integer  degrees  within  +  .043945°.  This  is 
Important  for  precise  calculations  of  boresight  error  slopes.  The  revised 
software  is  presented  in  Appendix  C. 
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3.0  SETC  TESTING 


3.1  Introduction 


The  majority  of  tests  covered  by  this  report  are  tests  which  have 
been  repeated  using  the  induced  offset  described  in  Section  2.2.  The 
tests  fall  into  three  groups:  (1)  accceptable  radomes,  (2)  obstructed 
radomes,  and  (3)  no  radome. 

3.2  GROUP  1  -  Acceptable  Radomes 


This  group  of  radomes  include  those  which  have  passed  final  quality 
assurance  inspections.  Twelve  IHAWK  radomes  in  this  category  were  tested. 
These  tests  were  repeats  of  prior  tests  which  did  not  use  the  induced  off¬ 
set  test  method.  Vector  plots  obtained  after  removal  of  the  known  bias 
show  uniformly  distributed  errors.  The  largest  boresight  errors  are 
slightly  in  excess  of  one-half  degree.  The  areas  of  least  boresight  error 
occur  along  the  azimuth  and  elevation  axes.  Examples  of  these  plots  are 
presented  in  Figures  A-l  through  A-5  in  Appendix  A. 

3.3  GROUP  2  -  Obstructed  Radomes 


In  an  effort  to  better  understand  the  offset  horn  configuration,  an 
IHAWK  radome  was  tested  using  a  plexiglass  obstruction.  The  purpose  of 
this  test  was  to  observe  the  effect  of  the  offset  method  on  the  large 
errors  caused  by  placing  an  obstruction  in  the  radome.  Plots  show  that  all 
errors  not  affected  by  the  blockage  are  pointing  toward  the  center  of  the 
radome.  However,  azimuth  errors  affected  by  blockage  are  pointing  away 
from  the  center.  The  reason  for  this  deviation  may  be  a  change  in  the 
polarization  of  the  signal  as  it  passes  through  the  obstruction.  Plots  of 
this  data  are  also  included  in  Appendix  A  in  Figures  A-6  through  A-10. 

3.4  GROUP  3  -  No  Radome 


Two  tests  were  performed  with  no  radome  attached  to  the  gimbal.  The 
first  test  was  run  using  the  standard  horn  configurations.  The  purpose  of 
this  test  was  to  check  the  testing  equipment  and  the  anechoic  chamber; 
also,  this  test  served  as  a  comparison  for  the  second  test  with  no  radome. 
The  second  test  was  made  without  a  radome  but  with  the  horn  positioned 
using  the  offset  bias.  This  test  was  then  compared  with  the  previous  test 
to  detect  any  inconsistencies  between  the  two  configurations.  The  results 
of  both  tests  were  satisfactory  with  each  showing  only  negligible  errors. 


6 


4.0  DATA  PROCESSING 


4.1  Introduction 


This  section  reviews  the  methods  used  to  provide  analysis  of  the 
data  obtained  during  radome  tests.  The  plotting  programs  and  the  sta¬ 
tistical  analysis  program  are  discussed.  Additionally,  the  method  used 
to  remove  the  induced  bias  are  explained. 

4.2  Removing  Offset 


With  the  configuration  illustrated  in  Figure  1  and  the  dimensions  of 
the  anechoic  chamber,  there  exists  an  offset  of  approximately  1.8°  in  both 
azimuth  and  elevation.  Since  exact  positioning  of  the  offset  horn  is 
unrealistic,  the  exact  position  can  only  be  said  to  be  within  +0.1®  of  the 
desired  value.  The  error,  looking  through  the  center  of  the  radome,  should 
be  zero,  and  the  overall  average  should  also  be  zero.  Thus,  the  average  of 
all  errors  can  be  subtracted  from  each  data  point  to  compensate  for  small 
errors  in  alignment.  Since  the  offset  error  is  simply  added  to  the  true 
error,  the  total  average  of  all  errors  is  subtracted  from  each  data  point 
to  compensate  for  both  small  errors  in  alignment  and  the  +  0.1®  unknown 
offset  error. 

The  average  value  is  subtracted  from  each  point  of  raw  data  with  the 
result  being  stored  in  a  new  file  containing  the  true  boresight  error  for 
each  set  of  azimuth  and  elevation  angles.  Date  can  then  be  retrieved 
by  one  or  more  of  the  plotting  programs  described  in  the  following  section. 
Plots  of  the  data  reflect  the  true  boresight  error  values. 

4.3  Plotting  Programs 


The  two  types  of  plots  produced  during  this  task  were  boresight  error 
vector  plots  and  boresight  error  three-dimensional  plots.  Minor  adjust¬ 
ments  to  the  existing  vector  plotting  program  allowed  this  program  to 
access  the  file  which  contained  data  with  the  offset  removed.  These  vector 
plots  display  azimuth  and  elevation  errors  in  the  form  of  a  pointing  vector 
emanating  from  a  footpoint  which  is  placed  at  integer  values  of  azimuth  and 
elevation  angles. 

Also  utilized  were  two  variations  of  the  three-dimensional  plotting 
routines.  The  first  variation  was  the  CARPET  program  which  is  normalized 
and  produces  a  three-dimensional  plot  with  all  points  connected  by  lines. 
The  second  was  the  program,  CARPET  2,  which  is  the  same  as  CARPET  except 
that  it  removes  the  lines  which  should  be  hidden,  producing  an  easily  . 
readable  plot.  Examples  of  these  plots  are  included  in  Appendix  A,  and  a 
more  detailed  description  of  the  actual  plotting  programs  can  be  found  in 
(!]• 


4.4  Statistical  Analysis 


The  same  methods  of  statistical  analysis  described  in  the  report 
"Radome  Boresight  Assessment"  [1J  were  utilized  during  this  task.  Data 
collected  in  the  radome  tests  has  been  stored  to  facilitate  rapid  statisti¬ 
cal  analysis. 


5.0  TESTING  AND  PROCESSING  DIFFICULTIES 


5.1  Introduction 


Fewer  difficulties  arose  during  this  task  than  during  previous  tasks. 
However,  the  following  equipment  and  phase  coordinate  problems  are  con¬ 
sidered  significant. 

5.2  Equipment  Problems 

At  the  beginning  of  the  testing  period,  two  radomes  were  tested  and 
analyzed  with  the  results  being  acceptable.  Based  on  these  results,  the 
remaining  tests  were  conducted  prior  to  plotting  and  analyzing  the  data. 
This  was  required  due  to  time  limitations  in  the  SETC.  After  testing  was 
completed,  discrepancies  in  phase  were  discovered  in  the  last  nine  sets  of 
data.  This  problem  was  traced  to  a  phase  line  being  grounded.  After  this 
problem  was  corrected,  it  was  necessary  to  repeat  the  tests  which  yielded 
unacceptable  data.  Repeated  tests  provided  acceptable  results. 

Another  topic  for  discussion  in  this  section  is  the  computer  system 
available  for  radome  analysis.  Although  there  has  been  a  significant 
decrease  in  down  time,  terminal  access  remains  a  problem.  Inavallablllty 
of  terminals  connected  to  the  system  has  caused  several  delays. 

5.3  Phase  Coordinate  System 


Processing  statistical  evaluations  of  several  sets  of  raw  data  unexpec¬ 
tedly  revealed  overall  boresight  averages  with  a  negative  azimuth  value  and 
with  a  positive  elevation  value.  Since  this  was  not  expected  while  using 
the  offset  method  described  in  Section  2.2,  Investigations  to  find  the 
cause  were  conducted. 

The  problem  was  eventually  solved  by  showing  that  the  test  equipment 
Is  arranged  in  a  manner  which  logically  reverses  the  apparent  error  during 
the  test.  For  an  observer  positioned  behind  the  antenna  and  looking  In  the 
direction  of  Ra  (see  Figure  3),  a  positive  pitch  (elevation)  error  indica¬ 
tes  that  the  actual  target  location  is  above  the  Ra  axis,  as  expected. 
However,  a  positive  yaw  (azimuth)  error  indicates  that  the  actual  target 
location  Is  to  the  left  of  Ra  in  the  yaw  plane  [2J. 


Figure  3  Antenna/Radome  Geometry  for  IHAWK  Missile 
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6.0  CONCLUSIONS  AND  RECOMMENDATIONS 


Plots  resulting  from  the  use  of  the  new  offset  horn  method  are 
accurate,  readable,  and  present  a  better  overall  representation  of  the  true 
boresight  error  induced  by  the  radome.  Software  improvements  have  proven 
to  be  reliable  and  time-saving  tools  aiding  in  the  performance  of  radome 
testing.  Due  to  these  software  Improvements,  the  possibility  now  arises  to 
study  boresight  error  slopes.  Boresight  error  slope  is  an  important 
characteristic  since  it  indicates  the  rate  of  change  of  the  boresight 
error.  Knowledge  of  this  rate  is  significant  for  missile  response  since  it 
can  be  used  to  predict  future  boresignt  errors  by  utilizing  the  information 
of  target  movement. 

The  majority  of  the  recommendations  presented  in  [1]  have  been  imple¬ 
mented.  A  time-saving  recommendation  repeated  here  is  the  need  for  a  means 
to  transfer  data  directly  from  the  test  system's  floppy  disks  to  the  data 
processing  system.  This  modification  would  also  eliminate  the  need  to 
acquire  data  cassette  tapes.  Other  recommendations  include  improved 
plotting  capabilities  (possibly  on  site)  and  the  acquisition  of  a  graphics 
terminal  dedicated  to  radome  testing. 
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G1LSBP 

FCB 

3 

BAMS6P 

FCB 

4 

BflLSBP 

FCB 

3 

BEMSBP 

FCB 

6 

BEUSBP 

FCB 

■7 

flBMSBP 

FCB 

3 

ABLSBP 

FCB 

3 

EBMSBP 

FCB 

10 

EBLSBP 

FCB 

1 1 

fiSMSBF 

FCB 

12 

flSLSBP 

FCB 

13 

PS MS BP 

FCB 

14 

PSLSBP 

FCB 

15 

BftMSBP 

FCB 

IB 

flBLSBP 

FCB 

1? 

PflMSBP 

FCB 

18 

PfiLSBP 

FCB 

13 

fiENSBP 

FCB 

20 

AELSBP 

FCB 

21 

PEMSBP 

FCB 

22 

PELSBP 

FCB 

23 

* 

* 

SFIft 

FDB 

00 BP ?H 

FDB 

0C28FH 

SFIP 

FDB 

0043 3H 

FDB 

0020C H 

SFG 1 

FDB 

00783H 

FDB 

04000H 

SFBE 

FDB 

006FFH 

FDB 

OEOOOH 

TMPSIM 

£ 

RMB 

4 

flSCT 

# 

** 

OflC 

LOCATION': 

« 

DflCftI 

ECU 

0E02EH 

DACA2 

ECU 

0E02CH 

DhCli  ;• 

ECU 

0E023H 

DACA4 

EQIJ 

0E02EH 

DhCAS 

ECU 

0E03PM 

* 

* 

EMD 

* 


♦ 


NAM 

RDATA 

♦ 

OPT 

REL 

♦ 

XDEF 

TEMPA. ' 

XDEF 

AZBCDS 

XDEF 

TMPBUF 

XDEF 

AZANG.I 

XDEF 

SPCP1.I 

XDEF 

APUDAT 

* 

♦ 

DSCT 

PLUS 

FCB 

2BH 

APST 

fcb 

27H 

DCML 

fcb 

2EH 

CR 

FCB 

ODH 

TXDRE 

FCB 

02H 

♦ 

♦ 

♦  ♦ 

ALLOCATED  MEMOR 

♦ 

♦  ♦ 

TEMPORARY  MEMOR' 

♦ 

TEMPA 

RMB 

1 

TEMPB 

PMB 

1 

TEMPX 

RMB 

2 

BCDSGN 

RMB 

1 

BINUPR 

RMB 

1 

OUTBUF 

RMB 

2 

DSCT 

♦ 

♦♦ 

DEDICATED  MEMOR 

♦ 

flZBCDS 

RMB 

t 

flSBCD 

RMB 

2 

ELBCDS 

RMB 

1 

ELBCD 

RMB 

o 

AZBIN 

PMB 

D 

ELBIN 

RMB 

2 

TMP6CD 

PMB 

! 

RXBU1P 

RMB 

2 

TX6U2P 

RMB 

2 

.  EC DSGH • B I  HUPP • OUTBUF 


'  TXBU2P 


♦ACCUMULATOR  a  'BOBBIN. BINAHGY , 

♦ACCUMULATOR  6  • B I HANG ) . 

♦  INDEX  REGISTER  ■ MOVEUF .  BC BANG > . 

♦  ASCII  SIGN  OF  BCD  ANGLE  v B I NANG >  BCBANG. ANGLE  > . 
♦USED  IN  FINDING  MS  BYTE  OF  BINARY  VALUE  <BCD6IH 
♦POINTER  TO  TEMPORARY  OUTPUT  BUFFER  <MOVBUF>. 


VARIABLES. 


♦ASCII  SIGN  OF  ELEVATION  BCD  ANGLE  '.ANGLE  1 . 
♦PACKED  BCD  FORM  OF  AZIMUTH  ANGLE  'ANGLE'. 

♦ASCII  SIGN  OF  ELEVATION  BCD  ANGLE  .ANGLE'. 
♦PACKED  BCD  FORM  OF  ELEVATION  ANGLE  'ANGLE'. 
♦TWO'S  COMPLIMENT  OF  AZIMUTH  ANGLE  'ANGLE'. 

♦  TWO’S  COMPLIMENT  OF  ELEVATION  ANGLE  '.ANGLE'. 
♦USED  IN  PACKING  BCD  ANGLE  'BCBRO'. 

♦POINTER  FOR  ASCII  CHAP  IN  PCVR  BUFFER  l  'RCVPFP 

♦  POINTER  FOR  ASCII  CHAP  IN  TXMT  BUFFER  £  <  TYNTAl 


•*  EXTERNAL  INTERFACE  BUFFER  AREA 
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TtlFBUF 

M1B 

20  .TEMPORARY  BUFFER  FlREFl  vBCDANG  > 

A2ANG 

EOU 

THF'EU-  ♦LOCATION  IN  R::BUF  OF  AE1MUTH  BCD  ANGLE  'ANGLE' 

ELAHG 

EOU 

TMFBu'+lO  •'LOCATION  IN  R.iBUF  OF  ELEVATION  BCD  ANGLE' ANGLE; 

r::bufi 

FDE: 

OOOO H  *ASC 1 1  CHARS  REC  D  FROM  POSITIONER  •' BCDANG * RCVRRR 

FDB 

0000  H 

FDB 

OOOOH 

FDB 

002EN 

FDB 

0O27H 

FDB 

OOOOH  1 

FDB 

OOOOH 

FDB 

OOOOH 

FDB 

002EH 

FDB 

0O27H 

TXBUF 1 

RUE 

20 

TXBUF2 

* 

RI1B 

26 

* 

RSCT 

** 

* 

I/O  DEVICE  EQUATE  SYMBOLS 

* 

SPCR1 

E  0  Li 

0E004H 

RTIiRl 

EOU 

OE005H 

SRCR2 

EOU 

OEOCSH- 

RTDR2 

EOU 

OEOOSH 

** 

fiPU  DATA 

♦ 

APUDAT 

EQU 

OEOOCH 

APUSTA 

EQU 

OEOODH 

DDRA1 

EOU 

OE0OOH 

RIMTP 

EQU 

OFFFSH 

END 
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4 


NflM 

DDATA 

4 

* 

OPT 

REL 

* 

XDEF 

SAVEX. LOC. SU ITCH* UH I CH> C HAN. OFFSET 

XDEF 

SMI LOC >  SWIPOS • CRA 

XDEF 

OUT  LOC  *  AiTPSUM.  PHA'SUM.  AMRAZ »  F'HAAZ*  AMF’EL  *  *  HAEL 

XDEF 

DDRB <  CRB . BASE . GA IN*  MUM »  C ONVR T  *  ST AT US .DA  A 

XDEF 

GA I N 1 . GA I  NS  >  GA I N4 . GA I  NS 

* 

XDEF 

TIME . ZERO. TWO. FOUR 

* 

DSCT 

GAIN1 

FOB 

OOH 

gains 

FCB 

OlH 

GAIN4 

FOB 

OSH 

GRINS 

FCB 

OSH 

TIME 

FDB 

0002  H 

EEPu 

FCB 

OO  H 

TWO 

FCB 

OSH 

FOUR 

* 

FCB 

04H 

* 

•  * 

ALLOCATED  MEMORY  AREA 

** 

TEMPORARY  MEMORY  VARIABLES 

save:: 

RIIB 

2  *  USED  TO  SAVE  CONTENTS  OF  M  PE  SISTER 

loc 

RMB 

2  4  USED  WHEN  COMPUTING  ADDRESS  F  .US  OFFSET 

SWITCH 

rub 

1  ■  *  USED  IN  INCREMENTING  RAGE  2EF  I'  MEMORY  POSITION 

* 

(SOFTWARE  SWITCH* 

WHICH 

RMB 

1  *  POINTER  USED  TO  Y  EEF'  TRACI  OF  SWITCH  POSITION 

CHRN 

RMB 

I  *  POINTER  USED  TO  I EEF  TRACT  OF  CHANNEL  SELECTION 

OFFSET 

RMB 

1  *  COMPUTED  OFFSET  USED  WHEN  CO'  • U? I NO  NEW  ADDRESS 

4 

4*_ 

DEDI' 

:  A  T  E  DJ'J  EMORY.  VAR  J  ABLES _ 
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SWILOC 

FDB 

SUIPOS 

# 

LOCATION  OF  SWITCH  POSITION  CODES 

SWIPOS 

FCB 

OFFH 

* 

SWITCH 

POSITION  —  OFF 

FCB 

OFEH 

* 

SWITCH 

POSITION  —  ONE 

FCB 

OFD  H 

4 

SWITCH 

POSITION  --  TWO 

FCB 

0F6H 

4 

SWITCH 

POSITION  —  THREE 

FCB 

0F7H 

* 

SWITCH 

POSITION  --  FOUR' 

* 


44 

£ 

EXTERNAL  INTERr 

ACE  BUFFER  AREA 

OUTLOC 

FDB 

AMPS UN 

* 

LOCATION  OF  MEMORY  RESERVED  FOR  OUTPUT 

AMP SUM 

FDB 

800 1H 

* 

SUM  AMPLITUDE 

PHASUM 

FDB 

000 1  H 

* 

SUM  PHASE 

AMPfiZ 

FDB 

000 1H 

* 

AZIMUTH  AMPLITUDE 

PHAAZ 

FDB 

000 1H 

4 

AZIMUTH  PHASE 

AMF'EL 

FDB 

©00 1 H 

* 

ELEVATION  AMPLITUDE 

PHAEL 

FDB 

000 1H 

4 

ELEVATION  PHASE 

**  E. 

s'TERNAL, 

INTERFACE 

BUFFER  AREA 

CRA 

RMB 

2 

♦TERMINATES  CONTROL  BASED  ON  AN  "S" 

ASCT 

DDPB 

EQU 

0EO02H 

* 

DATA  DIRECTION  REGISTER  PIA  PORT  B 

* 

(SWITCH  CONTROL) 

cpe 

ECU 

0E0O3H 

♦ 

CONTROL  REGISTER  PIA  PORT  B 

BASE 

EQU 

0E040H 

* 

BEGINNING  OF  ADC  BOARD  “  MEMORY  "  LOCATIONS 

CAIN 

EOU 

BASE+SH 

4 

MEMORY  LOCATION  TO  ACCESS  GAIN 

MUX 

EQU 

BASE+OAH 

f 

MEMORY  LOCATION  TO  ACCESS  MULTIPLEXER  CHANNEL 

CONVPT 

EQU 

BASE+QBH 

4 

MEMC'F LOCATION  TO  ACCESS  CONVERT  COMMAND 

STATUS 

EOU 

BASE+OCH 

4 

MEMORY  LOCATION  TO  ACCESS  STATUS 

DATA 

EQU 

BASE+ODH 

4 

MEMORY  LOCATION  TO  ACCESS  ADC  DATA  MS  BYTE 

END 

• 
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NO  UNDEFINED  SYMBOLS 


MEMORY  MAP 


S  SIZE  STP  END  COHN 
B  OO0O  0040  0040  0000 
C  0002  2000  2001  0002 
D  035E  2002  235F  0002 
A  IB5?  2360  SEES  OOOF 


MODULE  NAME 
MAIN 
CNTL 
IN  IT 
AIM 

NETANL 

RADLO 

COMPUT 

WAIT 

SDATA 

RDATA 

DDATA 

FTNRUN 


BSCT 

0040 

0040 

0040 

0040 

0040 

0040 

0040 

0040 

0040 

0040 

0040 

0040 

0040 


DSCT 
2002 
206  C 
20?  S 
2073 
2073 
2073 
20'3 
20'S 
2073 
2103 
217A 

21A2 

- 


PSCT 
2360 
274E 
2350 
2374 
2384 
2336 
23D2 
23F0 
2A00 
2  A  OO 
2A00 
2A00 
2L  33 


COMMON  SECTIONS 


NAME  S  SIZE  STR 
•ADDS  P  OOOF  3EA3 
.ADROC  B  0002  235E 

DEFINED  SYMBOLS 


MODULE 

NAME:  MAIN 

MAIN 

A  2360 

MODULE 

NAME: 

CNTL 

CNTL 

P  274E 

MODULE 

NAME:  INI T 

INI  T 

P  2850 

MODULE 

NAME: 

AIM 

AIM  P  2874 

MODULE  NAME:  NETANL 
NETANL  P  2884 

MODULE  NAME:  PADLO 
RADLO  P  2336 

MODULE  NAME:  COMF1  it 
COMPUT  P  23D2 

MODULE  NAME:  WAIT 
WAIT  P  23F0 

.MODULE  UAUF:  -TiATa  _ 
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i 


AALSBP 

D  20 EC 

AAM3BP 

D 

20  EE 

ftBLSBP 

D 

20E4 

A6HS6P 

1» 

26E  3 

ABF 

D  20CB 

ADL3BP 

D 

20  PA 

ftp MS BP 

P 

200* 

AELSBP 

D 

20P  0 

ft  EM  SEP 

D  20EF 

ASLSBP 

D 

20  fc>: 

PlSMSBP 

P 

20E7 

AZD3 

D 

2063 

flZP 

D  2002 

SAL3BP 

D 

20E0 

BAMS BP 

P 

20DF 

BEL3BP 

D 

2GE2 

BEMSBP 

D  20E 1 

B3EAZ 

D 

20AP 

BSEEL 

P 

20AF 

CONI 

P 

2030 

COM2 

D  2034 

CTS 

D 

2033 

PACA1 

A 

E02E 

DACA2 

A 

E02C 

DflCft3 

ft  £023 

DACA4 

ft 

E03E 

PA0A5 

A 

E03A 

DEG 

P 

203P 

OEGRAD 

D  20  rs 

EBLSBP 

D 

20EC 

EBMSBP 

P 

26  E  5 

EBP 

P 

20CC 

EDLS6P 

D  20DC 

EDM3BP 

P 

20PB 

ELDB 

D 

206D 

ELP 

D 

20C4 

FINAL 

D  200  F 

FIPSTP 

D 

200 1 

GO 

P 

208F 

GOLSBP 

P 

20D2 

G0HSBP 

D  20D1 

G1 

D 

20AB 

G1L3BP 

P 

2  OPE 

G1MSBP 

P 

20  PD 

HEADER 

D  20CD 

ICALPT 

D 

20CA 

KALSBP 

D 

20  P  4 

KAMSBP 

P 

20  D  2 

KAZ 

D  20?? 

KEL 

D 

2033 

KEL36P 

l' 

20  DO 

BEMSBP 

D 

26D5 

MAHAZ 

D  20A7 

I1ANEL 

D 

205F 

PftLSBP 

P 

20EE 

PAMSBP 

P 

20ED 

PftttftZ 

D  20 AS 

PANEL 

P 

203B 

PELSBP 

P 

20  F  2 

PEMSBP 

P 

20F 1 

PSLSBP 

D  20EA 

PS MS BP 

P 

20E3 

REF SUM 

P 

2  OBI 

SDLSBP 

P 

20  D  3 

SDMS6P 

D  20 D? 

SFE'E 

P 

20FF 

SFG1 

P 

20FB 

SFIft 

D 

20F  3 

SF  IP 

D  20F7 

SUMDB 

P 

20  B  5 

TPAZ 

P 

2004 

TDEL 

D 

2003 

TEMPMl 

D  20S3 

TEH 

P 

20?C 

TMPSIN 

P 

2103 

TMPX2 

D 

203B 

TWENTY 

D  20?E 

MODULE  NAME:  PDATA 

filNTP 

ft  FFFS 

AP  ST 

P 

2103 

RPIJPAT 

A 

E0OC 

APUSTA 

A 

EOOD 

AZANG 

D  2124 

AZBCD 

P 

21  It. 

AZBCD-S 

P 

2115 

AZB1N 

D 

21  IB 

BCDSCN 

D  2111 

B  I  HUPP 

P 

2112 

OR 

P 

2106 

DCML 

D 

2 1  Oft 

DDRA1 

A  EOO0 

ELAHG 

P 

212E 

ELBOP 

P 

2113 

ELBODS 

D 

2113 

ELBIH 

D  21  ID 

OUTEUF 

P 

2113 

PLUS 

D 

2103 

RTDPl 

A 

E005 

RTDR2 

A  E0O3 

p;;buip 

P 

2120 

RXE'UF  1 

P 

2133 

SPCPl 

A 

EGO  4 

SRCR2 

A  E008 

TEMPA 

P 

21  OP 

TEMPS 

P 

2 10E 

temp:; 

D 

2  IGF 

TMPBCD 

D  21  IF 

TMPBUF 

P 

2124 

TXBU2P 

P 

2122 

TXBUFl 

D 

2140 

TXBUF2 

D  2 1  CO 

TXDRE 

P 

210C 

MODULE  NAME!  DDATA 

AMPAZ 

D  2133 

AMPEL 

P 

2 1 30 

AMPSUM 

P 

2134 

BABE 

A 

E040 

CHfttl 

D  2133 

CONVRT 

ft 

E04B 

CPA 

D 

21  AO 

CRB 

A 

EGO  3 

DATA 

ft  E04D 

DDPB 

A 

E002 

FOUR 

D 

2132 

GAIN 

A 

E043 

GAIN1 

D  2 1 7A 

GAIN2 

D 

2 1  ?B 

GAIN4 

D 

21?C 

GAIN3 

D 

217D 

LOG 

D  2135 

MUX 

A 

E04A 

OFFSET 

P 

218A 

OUTLOC 

D 

2132 

PHftftZ 

D  213ft 

PHhEL 

P 

2 1 3E 

PH A SUM 

P 

213* 

save:: 

D 

2133 

STATUS 

A  E04C 

SHILOC 

P 

2  1  SB 

SHIP OS 

D 

21 3D 

SWITCH 

D 

213? 

TIME 

D  217E 

TWO 

P 

2131 

WHICH 

D 

cl!  1 33 

ZERO 

D 

2130 

MODULE  NAME: 

CLOSIT 

P  2C0U 

OPEN IT 

P 

2AA3 

WRITER 

P 

2BD* 

MODULE  NAME!  FTHFUN 

BUFT 

D  226? 

COMB  A 

P 

2E4F 

EBUFt 

P 

2320 

FILET 

D 

22c  4 

LPUSEI 

D  223? 

RUNT 

P 

20  33 

XI  T 

P 

2233 

XDFINT 

R 

350? 

XDKOTt 

P  350  C 

xpundt 

P 

350  F 
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LOftB=LlB 

UB=FORLB 

MO=MftP 1 . MO 

MftPF 

MOMCN 

MftPF 

OBJfi=OBJl.lO 

LOfiD=LIB 

LIB=F0RL8 

EXIT 
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Appendix  C 

Radome  Measurements  Receiver  System  Software  Listing 


Iil«f|$$il5|$«55i  155551  »T  |  )  {  )  S  »  i  FTi  H  i  {  S  M  i  M  {  i  m  U  I  i$  i  H  i»  n  m  »  •  m  m  >  H 
*  5  5  5 

;;  NEW  SCAN  PATTERN  <#3>  SCANS  A  32  DEGREE  CIRCULAR  RASTER  PATTERN  ;; 
*5  5  5 


i ; 

; ; 

ENTRY  Is 
ENTRY  2s 
ENTRY  3: 

MUST  BE  32 
ELEVATION 
ANY  KEY  TO 

.  0  OR  WHATEVER  ELEVATION  1  -1  TO  STOP  AT 
STEP  SIZE 

START  SCAN 

5 

5  5 
5  5 

5  5 

5  5 

ST28 

LDX 

40000 

STX 

MFLAG 

j CLEAR  MOTOR  AND  PROGRAM  FLAGS 

3TX 

AZKEY 

;FIRST  AZIMUTH 

LDX 

t»3200H 

.•RADIUS 

STX 

ELPEY 

SNOW  ELEVATION 

LDX 

#2D2BH 

STX 

A 2 KEYS 

LDX 

ttGTcao 

STX 

STADDR 

; SAVE  RETURN  ADDRESS 

DEC 

PFLAG 

I  SET  PROG  FLAG 

NOP 

ST280 

NOP 

NOR 

NOP 

srraA 

LDA  A 

ELSIGN 

i GET  CURRENT  ELEVATION  SIGN 

CMP  A 

4  2BH 

• 

EEC 

ST29C 

: GO  IF  ELEVATION-O 

LDA  A 

ELBCD 

: BCD  CURRENT  ELEVATION 

LDA  B 

ELBCD+1 

LDX 

4FR0GA 

;LAST  ELEVATION  MAGNITUDE 

NOR 

CMP  A 

41 

;CHECK  PROXIMITY  OF  LAST  POINT 

BHI 

ST2BAA 

; NOT  WITHIN  1  DEGREE 

BRA 

FINA 

; WITH I N  ONE  DEGREE.  DONE 

ST2BAA 

TST 

CARRY 

;  MAYBE  OVER  1  DEGREE  PAST  END 

BMI 

ST29B 

; NO. CONTINUE 

FINA  . 

LDX 

ttsrca 

STX 

STADDR 

JMP 

ST29 

ST29B 

JSK 

NEWAZ 

! CALCULATE  NEW  AZIMUTH 

LDA  A 

AZSIGN 

STA  A 

AZ.  EYS 

LDX 

K2T28B1 

STX 

STADDR 

NOP 

3T2aei 

LDA  A 

ELKEY+l 

ADD  A 

,'ROGB+l 

DAA 

STA  A 

ELKEY+1 

LDA  A 

ELKEY 

ADC  A 

FROGB 

Cm  A 

STA  A 

ELKEY 

ST2BB2 

LOx 

4ST2GB3 

STX 

STADDR 

NOP 

SV28B3 

LDA  A 

AZSIGN 

I  CURRENT  AZ  SIGN 

OMF  A 

42BH 

d  :c 

JTL;3E4 

_  Jf-.  A 

42BH 

•  "  “ 

STA  A 

AZKEYS 

ERA 

S  T20D3 

s  r:QB4 

!.  PA  A 

4  2  DM 

...... 

'  1  A  A 

A/I  1  VS 

; CHANGES  SIGN  OF  AZIMUTH  FUR  NEXT  POSITION 

•  0/ 

H  )  CA 

“iI’I'R 


C-l 


ST28C 


I 


ST28C1 


3T28C2 


ST28C3 


stqsca 

3T28C5 


JMP 

ST2SA 

lda  A 

ELKEY 

LDA  B 

ELKEY+1 

LDX 

ttPRQGB 

NOP 

STA  A 

ELKEY 

STA  B 

ELKEY+1 

TST 

CARRY 

BEO 

ST28C1 

LDA  A 

#2DH 

STA  A 

ELKEYS 

LDX 

#ST28C2 

STX 

STADDR 

NOP 

JSR 

NEWAZ 

LDA  A 

AZSIQN 

STA  A 

AZKEYS 

LDX 

#ST28C3 

STX 

STADDR 

NOP 

LDA  A 

AZSIGN 

; CURR  AZ  SIGN 

CMP  A 

42BH 

;  "  +  " 

BED 

ST28C4 

LDA  A 

42BH 

STA  A 

AZt  EYS 

BRA 

ST28C5 

LDA  A 

#2DH 

STA  A 

AZKEYS 

LDX 

#ST28A 

3TX 

STADDR 

JMP 

ST23A 

SUBROUTINE  THAT  CALCULATES  AZ  POSITION 

LCA  a 

ELKEY 

: GET  ELEVATION  MSB 

JSR 

BCDBIN 

S  GET  BINARY  EQUIV 

lda  a 

TEMPA 

: BINARY  EQUIV 

ADD  A 

TEMPA 

i BINARY  EQUIV 

SI  A  A 

SAVEA 

j SAVE  THIS  ONE 

LDX 

ttTABl 

iAZ  TABLE  POINTER  . 

STX 

SAVEXl 

; SAVE  POINTER 

LDA  A 

SAVEXl+t 

LDA  B 

SAVEXl 

ADD  A 

SAVEA 

; GET  NEW  ADDRESS 

ADC  B 

#OOH 

STA  A 

SAVE X 1+1 

I  SAVE  IT 

STA  8 

SAVEX  1 

LDX 

SAVEXl 

LDA  A 

0.  X 

; GET  AZIMUTH 

LDA  B 

l,x 

; GET  AZIMUTH  LSB  . 

STA  A 

AZKEY 

; STORE  INTO  AZKEY 

STA  B 

AZKEY+1 

iSAME  FOR  LSB 

RTS 

;  DONE 

WORD 

03200H 

WORD 

03 1 98H 

WORD 

03194H 

WORD 

031B6H 

WORD 

031 75H 

WORD 

03161H 

WORD 

03143H 

WORD 

U3122H 

WORD 

03100H 

WORD 

03070H 

WORD 

03040H 

WORD 

O3005H 

WORD 

029iS6H 

WORD 

02924H 

WORD 

02877H 

WORD 

02Q26H 

WORD 

0277 1H 

WORD 

0271 1H 

WORD 

02646H 

WORD 

02575H 

WORD 

02500H 

WORD 

02414H 

WORD 

02324H 

WORD 

02225H 

WORD 

02 1 1 7H 

WORD 

02000H 

WORD 

01865H 

WORD 

0 1 7 1 7H 

WORD 

01549H 

WORD 

01353H 

WORD 

0111 3H 

WORD 

00 794 H 

WORD 

OOOOOH 

BCD8 IN 

CLR 

TEMPA 

PSH  A 

(SAVE  A 

AND  A 

#OFOH 

;  GET  LIPPEP  4  BITS 

LSR  A 

(MOVE  1  SIT  RIGHT 

lsr  a 

; that  makes  2 

LSR  A 

; THESES 

3 

LOR  A 

; ThAT"S 

ALL  FOLKS 

CLC 

; CLEAR  ANY  CARRY 

TNLP 

TST  A 

BEQ 

ONELP 

CLR 

TEMPA 

PSH  A 

(SAVE  SHIFTED  A  (STACK:  ! 

Lp  l 

LDA  A 

TEMPA 

ADD  A 

#OAH 

(ADD  10 

STA  A 

TEMPA 

PUL  A 

(GET  SHIFTED  A  BACK 

DEC  A 

( DEC  COUNTER 

£<E0 

ONELP 

( IF  FINISHED 

PSH  A 

(SAVE  SHIFTED  A  AGAIN 

BRA 

LP  1 

(DO  IT  AGAIN  ’ 

GNELP 

PUL  A 

[PULLS  ORIGINAL  A 

AND  A 

#OFH 

: GET  LS  NIBBLE 

TST  A 

(SEE  IF  DONE 

PEG 

EBBC 

;G0  IF  NO  ONES 

PSH  A 

LP2 

LDA  A 

TEMPA 

[GET  INTERMEDIATE  RESULT 

ADD  A 

#01H 

[ INCREMENT  BY  ONE 

STA  A 

TEMPA 

(SAVE  RESULT 

PUL  A 

[GET  ONE  COUNTER 

DEC  A 

[DECREMENT 

BEQ 

EBBC 

(GO  IF  DONE 

PSH  A 

[NOT  DONE  YET 

BRA 

LP2 

EBBC 

*T*S 

END 

C-3 


1 


SECTION 

BLK, ABSOLUTE 

□RG 

OOOOH 

D2SBUF 

BLOCK 

20 

S I BUF 

BLOCK 

21 

tempx 

BLOCK 

*■> 

RADIUS 

BLOCK 

2 

FPT32 

BLOCK 

4 

ELRESULT 

BLOCK 

5 

AZRESULT 

BLOCK 

5 

I NT REG 

BLOCK 

ENTRY  1 

BLOCK 

l 

ENTRY2 

BLOCK 

1 

SAVEB 

BLOCK 

1 

SAVEC 

BLOCK 

1 

CHhRBF 

BLOCK 

1 

CHARPT 

BLOCK 

2 

CHARCT 

BLOCK 

2 

CHRNUM 

BLOCK 

1 

SAVEA 

BLOCK 

1 

SAVEX 

BLOCK 

2 

SAVEX1 

BLOCK 

2 

TEMPA 

BLOCK 

1 

TEMPB 

BLOCK 

1 

MSPENC 

BLOCK 

1 

LSBENC 

block: 

1 

LETA 

BLOCK 

1 

LETS 

BLOCK 

1 

BCDA 

BLOCK 

1 

E»CDB 

BLOCK 

1 

SAVDEC 

BLOCK 

1 

ANGLE 

BLOCK 

3 

SIGN 

BLOCK- 

1 

AZSIGN 

BLOCK 

1 

ELSIGN 

BLOCK 

1 

1  AZBCD 

BLOCK 

2 

ELBCD 

BLOCK 

2 

TEMP XI 

BLOCK- 

2 

TEMP X 2 

BLOCK 

2 

ENTRYA 

BLOCK 

1 

ENTRYB 

BLOCK 

1 

KEYENT 

BLOCK 

1 

TEMP A 1 

BLOCK. 

1 

TEMPB 1 

BLOCK 

1 

r  EYC 

BLOCK 

1 

AZKEY 

BLOCK 

2 

EL>  EY 

BLOCK 

2 

AZKEYS 

BLOCK 

1 

ELKEYS 

BLOCK'. 

1 

MFLAG 

BLOCK 

1 

PFLAG 

BLOCK 

1 

MINUEN 

BLOCK 

1 

SPEED A 

BLOCK 

1 

SFEEDE 

BLOC1 

1 

AZMAG 

BLOCK 

2 

ELMAG 

BLOCK 

n 

AZEL 

BLOCK 

1 

TEMPS 

BLOCK 

1 

PRQGN 

BLOCK' 

1 

PROGL 

BLOCK 

1 

PRGGA 

BLOCK 

2 

PROGB 

BLOCK 

2 

PROGC 

BLOCK 

2 

►  FLAG 

BLOCK 

1 

DPL ADA 

BLOCK 

1 

L*r*  L  Af3E 

BLOCK 

1 

SiFLAGA 

BLOCK 

1 

Sr LAGE 

BLOC: . 

t 

TEMPD 

BLOCK 

2 

BCDV5R 

BLOCK 

2 

FPTEL 

BLOCK 

2 

FPTAZ 

BLOCK 

2 

FPTELS 

BLOCK 

l 

FPTAZS 

BLOCK 

1 

PRQCNT 

BLOCK 

1 

STADDR  BLOCK.  2 

PROANG 

BLOCK 

2 

8 I NANG 

BLOCK- 

2 

SINE 

BLOCK 

2 

COSINE 

BLOCK 

2 

SSI  GN 

BLOCK 

1 

CSIGN 

BLOCK 

1 

SAVE  1 

BLOCK 

1 

8 I NUPR 

BLOCK 

1 

FELLIM 

BLOCK 

2 

NELLIM 

BLOCK 

2 

PAZLIM 

BLOCK 

2 

NAZLIM 

BLOCK 

9 

LFLAGE 

BLOCK 

1 

LFLA6A 

BLOCK- 

1 

HSGFLG 

BLOCK 

1 

“SAVEX2 

BLOCK. 

2 

; 

MODIFICATION  VI. 3 

SPEED 

BLOCK 

I 

GIM3PEED 

BLOCI 

1 

A Z SPEED 

BLOCK. 

I 

ELSFEED 

block: 

1 

AZSPD 

BLOCK 

1 

ELSPD 

BLOCK 

1 

CARRY 

BLOCK 

1 

S I/C  EQUATES 

AAFSPD 

ECU 

OEOH 

CL'ASPD 

ECU 

0E7H 

DDR  A  2 

ECU 

OS 40 4 H 

; MS  4  BITS  OF  DAC  #1 -AZIMUTH  ' 

CRA2 

ECU 

084 OSH 

DDR82 

E'JU 

08 4 06 H 

;LS  8  BITS  OF  DAC  41-AZIMUTH 

CRB2 

EQU 

08407H 

DDR  A3 

ECU 

OSSOOH 

;LS  4  BITS  OF  DAC  #2-ELEVATI0N 

CRA3 

EQU 

0880 1H 

DDR  83 

ECU 

08802H 

: MS  8  BITS  OF  DAC  42-ELEVATION 

CRB  3 

ECU  , 

OSS OSH 

DISAZ 

ECU 

000 OH 

DISEL 

ECU 

OOOAH 

MSBSEL 

ECU 

0SE03H 

LSDSEL 

EQU 

0SE02H 

ns as a z 

ECU 

OSEO 1 H 

LSB3AZ 

ECU 

08E00H 

DDR  A 

ECU 

08400H 

CRA 

ECU 

0840 1 H 

DDRB 

ECU 

08402H 

CRB 

EDU 

084 OSH 

AC  IAS 

ECU 

0840QH 

; ACIA  STAUS/CONTROL  REGISTER 

ACIAD 

EQU 

*-'840«H 

; AC I A  DATA  REGISTER 

apudata 

ECU 

08804H 

SAF’U  DATA  INPUT/OUPUT 

APUSTAT 

EQU 

0880SH 

; APU  COMMAND  INPUT  AND  STATUS  OUTPUT 

ETHSPD 

EQU 

OP  OH 

; (MOD  1.3) 

1  '  t  1  M  M 

l ;;;;;;;;;; i;;;; 1 s  H  t; ; 

MAIN  PROGRAM-  2000-3016  HEX 


C-5 


,  i 


SECTION 

MAIN 

ORG 

2000H 

j INITIALIZE  P I AS 

GOE  LDS 

NOP 

SEI 

#OFFFH 

LDA  A 

#3 

500000011=  MASTER  RESET 

ST  A  A 

AC  IAS 

; RESET  ACIA 

LDA  A 

#01H 

510000001  =  7  BITS,  EVEN  PARITY,  2  STOP  BITS 

STA  A 

AC  IAS 

; SET  ACIA  FOR  RECEIVER  INT.TXMIT  INT  OFF 

CLR 

CRA 

5  CLEARS  CONTROL  REG  A 

CLR 

CRB 

5  CLEARS  CONTROL  REG  B 

CLR 

CRA2 

CLR 

CRB2 

r 

i  ADDTION  TO  INIT 

'  ROUTINE 

;  COMPENSATION  FOR  INVERTED 

BUS  DRIVERS 

;  (MOD  i.2> 

LDA  A 

#OPFH 

; GET  OPPOSITE  OF  00 

STA  A 

CRA3 

; CLEAR  CONTROL  REG  OF  A  SIDE 

STA  A 

CRB3 

i CLEAR  CONTROL  REG  OF  B  SIDE 

CLR 

DDRB3 

.•SETS  UP  B  SIDE  OF  DATA  PORT  A  ALL  OUTPUTS 

LDX 

*8400H 

LDA  A 

DOF  OH 

STA  A 

0,  X 

STA  A 

DDRA3 

; (MOD  1.2>  COMPENSATION  FOR  INV  BUS  DRIVERS 

LDA  A 

#7 

STA  A 

l.X 

LDA  A 

ttOFH 

STA  A 

0,  x 

STA  A 

4,  X 

LDA  A 

ttOFFH 

STA  A 

C.  x 

STA  A 

6,X 

LDA  A 

H004H 

STA  A 

CRA2 

STA  A 

CRB2 

LDA  A 

#OFBH 

; (MOD  1.2)  PUTS  04  INTO  CONTROL  REGISTER 

STA  A 

CRA3 

STA  A 

CRB3 

LDA  A 

#03DH 

STA  A 

CRB 

; SELECTS  OUTPUT  REGISTER  B 

:  INITIALIZED 

MOTORS  TO 

ZERO  SPEED. ETC. 

> 

LDX 

#TEMPX 

NEXTC  CLR 

I  NX 

o.  x 

5  CLEARS  LOCAION  POINTED  TO  BY  THE  X  REGISTER 

CFX 

#CARRY-*-l 

BNE 

NEXTC 

ADDITION  TO  THE 

INITIALIZATION  ROUTINE 

INITIALIZE  ASCII 

FORM  OF  GIMBAL  SPEEDS  TO  FULL  SPEED. 

MOD  (1.3) 

LDA  A 

#39H 

i ASCI  I  "9" 

STA  A 

AZSPEED 

SAZ  GIMBAL  AT  FULL  SPEED 

SI  A  A 

ELSI-EED 

5  ELEVATION  GIMBAL  AT  FULL  SPEED 

LDX 

3  r  x 

PELLIM 

C-6 


BL'J 

srox 

LDA 

A 

AZKEY+1 

ADD 

A 

AZBCD+1 

DAA 

STA 

A 

AZMAG+1 

LDA 

A 

AZ1  EY 

ADC 

6aa 

A 

AZBCD 

LDA 

e 

AZMAG+1 

STA 

A 

AZMAG 

DR  A 

ST0X2 

STO* 

LLA 

A 

AZl  EY 

LDA 

B 

AZa  EY+ 1 

LDX 

PA Z BCD 

JSR 

BCDSUB 

STA 

A 

AZMAG 

STA 

B 

AZMAG+1 

8  ADDITION  TO  TIG 

ST0X2 

TST 

A 

6NE 

ST0X1 

CMP 

B 

#15H 

BHI 

ST0X1 

LDA 

A 

#OFFH 

STA 

A 

SFLAGA 

STA 

A 

LSBSAZ 

BRA 

3  TOE 

ST0X1 

TST 

A 

BMC 

STOB 

CMP 

B 

P050H 

BHI 

STOB 

LDA 

A 

PETHSPD 

STA 

A 

SPEEDA 

BRA 

STOD 

STOB 

CMP 

A 

P004H 

BHI 

STOC 

LDA 

A 

ttQUASPD 

STA 

A 

SPEEDA 

BRA 

STOD 

STOC 

LDA 

A 

AZSPD 

STA 

A 

SPEEDA 

S  TOD 

LDA 

A 

AZP.EYS 

CMP 

A 

AZSIGN 

BEQ 

SAMEAZ 

DIFFAZ 

CMP 

A 

tt02BH 

BEO 

EC 

JMP 

LEFT 

B2 

JMP 

RIGHT 

SAMEAZ 

CMP 

A 

P02BH 

BEQ 

YESAZ 

NGAZ 

TST 

CARRY 

BMI 

B'J 

JMP 

LEFT 

BZ 

JMP 

RIGHT 

YE3AZ 

TST 

CARRY 

BMI 

B4 

JMP 

RIGHT 

&4 

Jpm- 

LEF  T 

a  ELEVATION  MOTOR 

ST  OF 

LDA 

A 

ELI  EYS 

A 

CLSIGN 

BRANCH  TO  DO  A  BCDSUD  IF  SIGNS  ARE  SANE 

•.FIND  LSBYTE  OF  AZ  MAGNITUDE  DIFF 

jFIND  MSBYTE  OF  AZ  MAG  DIFF 

;AZ  MAG  DIFF  NOW  IN  A  AND  B  REGS 


a  PUT  ADDRESS  OF  BCD  CURRENT  LOG  IN  INDEX  REG 
; JUMPS  TQ  ROUTINE  TQ  3UBTR  BCD  #"S 


; START  <0.2  DEGREE  TEST 

8 BRANCHES  TQ  <0.5  DEG  TEST  IF  BCD  WORD  NOT  <0.2 
jCOMPARING  T  0.15  DEG 

8  BRANCHES  TO  <0.5  DEG  TEST  IF  BCD  WORD  NOT  <0.2 
iCURRENT  POSITION  IS  LESS  THAT  0.2  DEG 
;  SETS  AZ  SF'EED  FLAG  WITH  CORRECT  SPEED 
; STOP  AZ  MOTOR  WITH  ZERO  SPEED 

; START  <0.5  DEG  TST 

; BRANCHES  IF  <0.5  DEG  TEST  IF  BCD  WORD  NOT  <0.5 

; BRANCHES  IF  <0.5  DEG  TEST  IF  BCD  WORD  NOT  <0.5 
; SET  SPEED  TO  EIGHTH  SPEED 
; SET  UP  SPEED  VARIABLE  FOR  USE  LATER 


; TEST  FOR  <5  DEG 

:BR  TO  <10  DEG  . IS  -  5  DEG  TEST  FAILS 
8 SET  SPEED  TO  QUARTER  SPEED 
a  USED  LATER 

;  SET  SPEED  TO  I 'SER  SELECTED  SPEED  (MOD  1.1 
a  USED  LATER 

a  DESTINATION  NOT  REACHED.  CHECKS  SIGNS 


aDIFF  SIGNS 


j  SAME  SIGN  FIND  WHICH  ONE  PLUS 


IV 


8  THIS  CODE  DUPLICATED  FROM  TUP  AZ  CODE  ABOVE 


C-8 


LDA 

A 

ELkEY+1 

ADD 

A 

EL BCD* 1 

DAA 

STA 

A 

£LMAG*t 

LDA 

A 

ELt.EY 

ADC 

A 

ELBCD 

DAA 

LDA 

e 

ELMAG+1 

STA 

A 

ELMAG 

BRA 

STOYl 

STOY 

LDX 

♦♦ELBCD 

LDA 

A 

ELKEY 

LDA 

B 

ELkEY+1 

JSR 

BCDSUB 

STA 

A 

ELMAG 

STA 

B 

ELMAG* 1 

;  ADDED  TO  TIGHTEI 

STOYl 

TST 

A 

BNE 

STOZ 

CMP 

B 

#10H 

BHI 

STOZ 

LDA 

A 

#OFFH 

STA 

A 

SFLAGE 

STA 

A 

LSB3EL 

JMP 

CPFLAG 

STOZ 

TST 

A 

BNE 

STOF 

CMP 

8 

#050H 

BHI 

STOP 

LDA 

A 

ttETHSPD 

STA 

A 

SFEEDE 

BRA 

STOH 

STOP 

CMP 

A 

#004H 

BHI 

STOG 

LDA 

A 

40UA3PD 

STA 

A 

SFEEDE 

BRA 

STOH 

STOG 

LDA 

A 

elsfd 

STA 

A 

SFEEDE 

STOH 

LDA 

A 

ELKEYS 

CMP' 

A 

ELSIGN 

BED 

SAMEEL 

DIFFEL 

CMP 

A 

ttOOBH 

BEO 

B5 

BRA 

B7 

B5 

BRA 

B3 

SAMEEL 

CMP 

A 

#02BH 

BED 

YESEL 

NOEL 

TST 

CARRY 

BMI 

Bb 

BRA 

B7 

B6 

BRA 

BS 

YESEL 

TST 

CARRY 

BMI 

B7 

B8 

JMP 

UP 

D7 

JMP 

DOWN 

SEND  ; 

5TATE 

ZERO 

•  i  * 

•  «  » 

«?•»»>*>! 

;  THIS  CODE  ALSO  DUPLICATED  FROM  AZ  CODE. 


t i ;; ; 
BEGIN  STATE  1 


ST1 

LDA  A 

#OUASPD 

'  ; bEG IN  STATE  ONE.  MANUAL  DOWN 

LDA  B 

#OFFH 

JSR 

MOTEL 

(JUMPS  TO  SUBROUTINE  COMMAND  ELEVATION  MOTOR 

ST  l  A 

LDA  A 

«70H 

STA  A 

DDR  A 

LDA  A 

DDRA 

CMP  A 

*77H 

(HAS  DOWN  KEY  BEEN  LET  UP  YET 

BNE 

srie 

(DOWN  KEY  IS  NOT  BEING  PRESSED  NOW 

JSR 

RESTO 

(RESTORE  KEYBOARD  BEFORE  READING  ANGLES  (MOD 

JSR 

SHAENC 

(DOWN  KEY  NOT  UP  YET  THEREFOR  READ  ANGLES 

BRA 

ST  1  A 

ST  1 B 

CLR 

LFLAGE 

;  CLR  LIM  REACHED  FLG. 

LDA  A 

ttOFFH 

(TURN  OFF  MOTOR 

TAB 

(CLOCKWISE  MOTION  STILL  SET 

JSR 

MOTEL 

JSR 

RESTO 

(RESTORE  KEYBOARD  PIA.  AND  BACK  TO  STATE  ZERO 

J MP  STO 

;  :  BEGIN  STATE  2  .  i  i 

5  5  !  5 

ST2 

LDA  A 

#OUASPD 

(BEGIN  STATE  2,  LOAD  A  WITH  SFEED  (MOD  1.2) 

CLR  B 

(LOAD  B  WITH  DIRECTION  (MOD  1.2) 

JSR 

MOTEL 

ST  2  A 

LDA  A 

#70H 

STA  A 

DDRA 

LDA  A 

DDRA 

CMP  A 

#07BH 

( KEY  RELEASED  ? 

BNE 

ST18 

JSR 

RESTO 

(RESTORE  KEYBOARD  BEF  READING  ANGLES 

JSR 

SHAENC 

(UP  KEY  STILL  BEING  PRESSED.  READ  ANGLES 

BRA 

3T2A 

ST2B 

CLR 

LFLAGE 

(CLEAR  LIMIT  REACHED  FLAG 

LDA  A 

#OFFH 

CLR  B 

(C-CLOCKwrse  motion  set 

JSR 

MOTEL 

JSR 

RESTO 

JMP 

STO 

J  END  STATE  2 

M  ?  ;  *  i  5  5 

J  : 

5  5  5  ; ; :  ? 

M  M  M  M 

BEGIN  STATE  3  ( 

ST3 

LDA 

A 

#QUASPD 

(BEGIN  STATE  3.  LOAD  A  WITH  SPEED  (MOD  1.2 

CLR 

B 

(LOAD  B  WITH  DIRECTION  (MOD  1.2) 

JSR 

MOTAZ 

(JMP  TO  ROUTINE  TO  COMMAND  AZIMUTH  MOTOR 

ST3A 

LDA 

A 

#OBOH  , 

STA 

A 

DDRA 

LDA 

A 

DDRA 

CMP 

A 

#Ob7H 

(HAS  RIGHT  KEY  BEEN  RELEASED? 

BNE 

ST  ZB 

JSR 

RESTO 

JSR 

SHAENC 

BRA 

SI  3 A 

ST3B 

CLR 

LHLAGA 

(CLEAR  LIMIT  REACHED  FLAG  (MOD  1.1) 

LDA 

A 

«OFFH 

; TURN  AS  MOTOR  OFF 

CLR 

B 

JSR 

MOTAZ 

J :  iR 

REST  0 

(RESTORE  KEYBOARD  PIA.  DACK  TO  STO 

JMR 

sro 

;i  ii; 

/  3  . 

Apr  3 

C-10 


; ) 
:  t 


BEGIN  STATE  4 


i  f 
i  5 


5  5 

m  1  5  5  5  5 

5  15  5  5 

;  5  5 

«$*»»j>55555 

5 

ST  4 

LDA 

A 

#QUASPD 

iBEGIN  STATE  4.  LOAD  A=SPEED  (MOD  1.2) 

LDA 

B 

#OFFH 

; LOAD  B  WITH  DIRECTION 

JSR 

MOTAZ 

ST4A 

LDA 

A 

#080H 

STA 

A 

DDRA 

LDA 

A 

DDRA 

CMP 

A 

#OBBH 

) HAS  LEFT  KEY  BEEN  RELEASED? 

BN«£ 

ST4B 

JSR 

RESTS 

JSR 

SHAENC 

BRA 

ST4A 

ST4B 

CLR 

LFLAGA 

(CLEAR  LIMIT  REACHED  FLAG  (MOD  1.1) 

LDA 

A 

#OFFH 

TAB 

.•CLOCKWISE  MOTION 

JSR 

MOTAZ 

JSR 

RESTO 

JMP 

sro 

; END  STATE  FOUR 


SII5555551 


: I ; t I ; 


BEGIN  STATE  5 


STS  LDX  #MSG4 

JSR  ASCDIS 

LDA  B  #10 

JSR  WAITE 

JMP  STO 


; END  STATE  5 


; DISPLAYS  "ERROR  INVALID  ENTRY 


;  BACK  TO  STATE  <> 


5!i35I5SlI*I>S*?I?5i 
BEGIN  STATE  6 


I;;:::;;::;;;;;;;;;;;;::;:;;;;;;;; 


ST6 

LDX 

#MSG8 

JSR 

ASCDIS 

: DISP  " 

JMP 

MSGB 

(WAIT  1 

;  END 

STATE  6 

i 1 1 i  s;:;;;  t 

ANGLE  TOO  LARGE . " 

SEC  THE  RETURN  TO  CONTROL  LOOP 


;( 1 i i ;;  s i ;  i I i ; 

BEGIN  STATE  7 


:  i  i 


I  !  !  ?  I  J  \ 


i  s i : 


ST7 


mm 

s  I 


I  : 

; ; 

t ;  1 1 ;  i 


: 

ST  10 


LDX  #MSG1 1 

JSR  ASCDIS  (DISP  "POSITIONER  HALTED 

JMP  MSGB  ; WAIT  1  SEC  THEN  RETURN  TO  CONTROL  LOOP 

I  END  STATE  7 

;  i ; :  i :  I ;  t ; : ; : :  1 1 ; ;  t ;  1 1 ; ;  M  1 1 !  M  1 1 1 1 1 : 1 1 1 1 1 1 1  <  1 1 ! : » I  •  II  < ! ! !  1 1 1 : 1 1 ; !  I  ( I 


!  I  I 


BEGIN  STATE  10  ; 

^  5 
;  *  m  < ; ; ;  t ;  m  ? ; ! ;  i  s  i ;  * ;  < ; ; ; ; :  * ;  1 1  *  m  s  i  ?  1 1  * ;  s  1 1 ;  s  m  ;  m  ; ; ; ; ; 


STA  A 
LDX 
JSR 
LDX 
31  * 


AZEL 

#MSG2 

ASCDIS 

HDI'..FL*1 

SAVE/ 


I  REMEMBERS  WHICH  KEY  PRESSED  (SETAZ  OR  SETEL) 
(DISP  "ENTER  AZIMUTH  ANGLE" 

I KEEPS  TRACK  OF  WHERE  THINGS  ARE  ON  THE  DISPLAY 


=i  kflAg  ' 

ST  10A 
KFLAG 
#MSGA 
ASCDIS 
ENTRYA 
ENTRYB 
A  KEYENT 

#SP10 
ADDCAL 
O.  X 

0,  x 

STATE  10 


; CLEARS  KEYENTRY  FLAG 
(DISPLAY  "AZIMUTH  ( 

S CLEAR  BOTH  REGS  TO  BE  USED  WHEN  PACKING  ENTRIES 
; GETS  KEYENTRY 


(JUMPS  TO  NEXT  STATE  DETERMINED  BY  KEYENTRY  IN  A 


9  •  9 

i  5 
; ; 

1  M  '  <  « 

«  «  »  J 

1  I  .« 

i  *  ?  »  i  >  J  i  !  »  »  >  >  i  »  5  i  >  j  »  »  >  i  j  m 

BEGIN  STATE  11 

i  n  i  n 

>$?»*«»! 

!  i  >  i  »  »  *  i  I 

f  *  » 

5 

5 

i 

STA  A 

AZEL 

; REMEMBERS  KEY  PRESSED 

LDX 

#MSG1 

JSR 

ASCDIS 

;  DISP'  "ENTR  ELECATION  i 

LDX 

♦tDISEL-t-1 

STX 

SAVEX 

LDA  A 

KFLAG 

;  WAITS  FOR  NEXT  ENTRY 

BPL 

ST  1 1 A 

CLR 

KFLAG 

S  CLEARS  ENTRY  F;LAG 

LDX 

♦SMSG7 

JSR 

ASCDIS 

S DISPLAYS  “ELEVATION 

CLR 

ENTRYA 

CLR 

ENTRYB 

LDA  A 

KEYENT 

S  GETS  KEYENTRY 

LDX 

ttSPl  1 

JSR 

ADDCAL 

LDX 

0,X  . 

JMP 

0,  X 

;END  STATE  11 


5 ! I I S  5 ! 
I  : 

;  i 

I  i  i  !  S  !  i 

; 

STir 


n  n 

5  5 

»  »  '  *  »  »  » 1  »  i  »  »  » 

n  n  n  n ; ;  n  1 1 1  n  s  i  *>  1 1 1 1 1 ;  I  n  I  n  I ;  I ;  1 1 ;  i « 

BEGIN  STATE  12 

mi 

■  1 

1  1  1  1  1  I  5  1  1  1  1  1 1 

I ;  1 1 1 1 1 1 1 1 1 1 ;  1 1 1 1 1 1 1 1 ;  1 1 1 1 1 1 1 1 1 ;  1 1 1 1 1 1 1 1 1 

LDA 

B 

#02BH 

S  BEG  IN  STATE  1.1,  PLUS  SIGN  AND  MAGNITUDE 

LDX 

SAVEX 

STA 

B 

0,  X 

; DIPLAYS  PLUS  SIGN 

INX 

; INCREMENTS  TRACKING  POINTING 

STA 

B 

TEMPS 

; REMEMBERS  SIGN  OF  ENTRY 

LSFi 

A 

; CONVERTS  KEYCDDE  TO  BCD  CODE 

TAB 

JSR 

PACK 

; ROUTINE  TO  PACK  ENTRY 

ADD 

B 

#030H 

.■CONVERTS  BCD  CODE  TO  ASCII 

STA 

B 

0,  X 

; ECHOS  KEYENTRY  ON  THE  DISPLAY 

INX 

STX 

SAVEX 

| REMEMBERS  NEW  VALUE  OF  TRACKING  POINTER 

LDA 

A 

KFLAG 

; WAIT  FOR  ANOTHER  KEYENTRY 

BPL 

ST12A 

CLR 

KFLAG 

LDA 

A 

KEYENT 

(GETS  KEYENTRY 

LDX 

t*SF12 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

0,  X 

SEND  STATE  12 

n  1 1 1  s  l  m  1 1 1 : 1 1 1 ;  i ;  1 1 ;  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ;  1 1  s  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  s  1 1 1 1 1 1 

si  :  ! 


,  Y’V-* 


I 


BEGIN  STATE  13 


I 


1511*51! 

ST13 


ST13A 


? ;  j  ; ; 

5  5  5  $ 

LDA 

8 

#02DH 

LDX 

SAVEX 

STA 

B 

o.x 

INX 

STX 

SAVEX 

STA 

B 

TEMPS 

LDA 

A 

KFLAQ 

BPL 

ST13A 

CLR 

KFLAG 

LDA 

A 

KEVENT 

LDX 

KSP13 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

0,X 

{ END  STATE  13 


Hi! 


!MI 


i  !  !  f  » i ! ! J!  i 


; DISPLAYS  ENTERED  MINUS  SIGN 
{INC  TRACKING  POINTER 
SAVE  TRACKING  POINTER 


.... 


nf  an; 

im  •  i  «  ni  n  J 

i ;  ■ ; ; ; :  i ;  I ; ;  i ; ; ; ; :  i ; ;  i ;  i ; ;  i ; 

;  n  if  ; 5 ; ; 1 5 ;  ? 

s » 

9  9 

BEGIN  STATE  14 

» » 

1  9 

in;;; 

>  M  <  1  M  A  Ml 

in:;;  t 1 : i  i 

» 1 

ST14 

LSR  A 

TAB 

; ST  14  DIPLAVS  ENTERED  NUM 

AFTER  MINUS  SIGN 

JSR 

PACK  ’ 

ADD  B 

#030H  ' 

LDX 

3AVEX 

STA  B 

0.  x 

{ECHO  KEYENTRY 

INX 

;  INC  TRACI  ING  POINTER 

srx 

SAVEX 

JIEEPS  TRACI  OF  POINTER 

ST14A 

LDA  A 

K  FLAG 

{WAITS  FOR  NEXT  KEYENTRY 

BPL 

ST14A 

CLR 

KFLAG 

{CLEARS  KEYENTRY  FLAG 

LDA  A 

KEVENT 

{GETS  KEYENTRY 

LDX 

4SP14 

{LOADS  INDEX  REGISTER  WITH 

STATE  14  POINTER 

JSR 

ADDCAL 

LDX 

0.  X 

JMP 

0,  X 

{END  STATE  14 

1  !  1  1  S  1  1  1 

;  $  I ; ; ; ; ;  1 : ;  1 

i ( ;!!{{{;;!!{{ i { ;:;;;{ i ; : ; ; ; 

; ;  m  ;;;  t; 1  n 

DEG IN  STATE  lb 


1 ; 

;  j  ; ;  5 ;  5  j 

>15. 

{ ;  t  { i :  1 ;  1 1 

5 

!!!5SS5555!5!!!!S!S55!«5!5S!.5!5555555555!5555!5 

ST  15 

LSR  A 

(CONVERTS  KEYCODE  TO  BCD  CODE 

TAB 

{ST  1 3  D I PLAYS  SECOND  NUM  AFTER  EITHER  +  OR  - 

JSR 

PACK 

ADD  B 

H030H 

LDX 

SAVEX 

STA  B 

0.  X 

INX 

STX 

SAVEX 

ST15A 

LDA  A 

KFLAG 

BPL 

ST13A 

{WAIT  FOR  NEXT  KEYENTRY 

CLR 

KFLAG 

{CLEARS  KEYENTRY  FLAG 

LDA  A 

KEYENT 

LDX 

#SP  1 5 

JSR 

ADDCAL 

l  OX 

o.x 

JMP 

O.X 

I  END  STATE  13 

» iiiiiiiiiii ;  t ;  m  m  n )  1 1 1 1 1  ii  1 1  m  1 1 1  hi  imiiiii  im  n  UJJ'  iiiMilllllllIl 


i 

i 


BEGIN  STATE  16 


? ; 

i ; 


•  *  • » ?  i  ? 
J 

ST16 

ST16A 


i  #  * ;  s  i ; 
5  I 

;  * ;  * ;  s ; 
STl  7 


ST17A 


ST17C 


MM 

t ; 

5  H  i  5  J  5  m  m 

LDA 

e 

P02EH 

; ST16  DIPLAYS  DECIMAL  POINT  (ENTERED) 

LDX 

SAVEX 

STA 

B 

0,  X 

i ECHOS  THE  DECIMAL  POINT 

INX 

STX 

SAVEX 

LDA 

A 

K  FLAG 

BPL 

ST16A 

iWAITS  FOR  NEXT  KEYENTRY 

CLR 

\  FLAG 

LDA 

A 

KEY ENT 

LDX 

PSP  16 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

o.x 

; END  STATE  16 

BEGIN  STATE  17 

5 1 ; ; 

5  5 

»»*•»***»»»» 

M  n  M  t  >  !  i  !  >  M  H  t  M  )  1  S  M  •  M  M  M  I  !  M  >  M  M  M  » 

LSR 

A 

i BEGIN  STATE  17-DISPLAY  LAST  ENTERED  NUM 

TAB 

JSR 

PACK 

ADD 

B 

P030H 

; CONV  BCD  CODE  TO  ASCII 

LDX 

SAVEX 

Sl'A 

B 

0,  X 

INX 

LDA 

A 

X 

h' 

n 

* 

STA 

A 

o«  x 

! DISPLAYS  DEGREE  MARK  AFTER  LAST  ENTERED 

INX 

STX 

SAVEX 

j INC  AND  SAVE  TRACKING  POINTER 

LDA 

A 

AZEL 

crip 

A 

#01  EH 

; TEST  TO  SEE  IF  SET  EL  WAS  ENTERED 

BEQ 

ST17A 

LDA 

A 

TEMPS 

1ST0ES  ENTERED  DATA  INTO  APPROPRIATE  AZ  1 

STA 

A 

AZKEYS 

LDA 

A 

ENTRYA 

LDA 

B 

ENTRYB 

JSR 

TSTANG 

LDX 

ENTRYA 

; TEST  FOR  ANGLE  >40  DEG 

STX 

AZ)  EY 

BRA 

3T17C 

LDA 

A 

TEMPS 

i STORES  ENTERED  -ATA  INTO  APPROPRIATE  EL 

STA 

A 

ELI  EYS 

LDA 

A 

ENTRYA 

LDA 

B 

ENTRYB 

JSR 

TSTANG 

sTST  TO  SEE  IF  ANGLE  >40  DEG 

LDX 

ENTRYA 

STX 

ELKEY 

BRA 

ST17C 

LDA 

A 

K  FLAG 

(WAITS  FOR  START  KEY  TO  BE  PRESSED 

BPL 

5T17C 

CLR 

K.FLAG 

LDA 

LDX 

A 

KEYENT 
PSP  17 

{ GET  ENTRY  _  . 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

0.  X 

SEND  STATE  17 

C-14 


BEGIN  STATE  18 


ST18 

CLR 

MFLAG 

j CLEARS 

MOTOR 

FLAG:  ST18  GO  TO  CONTOL  LOOP 

CLR 

LFLAGE 

) CLEARS 

LIMIT 

REACHED  FLAG 

CLR 

LFLAGA 

JMP 

STO 

; END  STATE  18 


BEGIN  STATE  19 


;  *  s  1 5 ;  j 

!n!M*nnmnlMMnnnMmTni<$nSnnT 

ST  19 

LDA  A 

*OFFH 

;ST19  DISABLES  CONTROL  LOOP  (MOD  1.1) 

STA  A 

MFLAG 

;  SETS  MOTOR  FLAG  SO  CNTRL  LOOP  DISABLED 

JSR 

AlSTOP 

TST 

LFLAGA 

: CHECK  FOR  AZ  LIMIT  REACHED 

BEO 

ST19A 

; GO  IF  NOT  REACHED 

CLR  A 

i AZ  LIMIT  REACHED 

LDA  6 

DFLAGA 

; GET  CURR  DIRECTION  STATUS 

COM  B 

3  GET  OPP  DIRECTION 

JSR 

MOTAZ 

LDA  9 

#10 

JSR 

WAITE 

» ALLOW  TIME  FOR  AZ  MOTOR  TO  REPCSTITION  GIMBAL 

LDA  A 

#OFFH 

LDA  B 

DFLAGA 

JSR 

MOTAZ 

; STOP  MOTOR,  LIMIT  NO  LONGER  EXCEEDED 

JMP 

STO 

ST19A 

CLR 

LFLAGA 

TST 

LFLAGE 

; CHECK  FDR  EL  LIMIT  REACHED 

BEO 

ST19B 

; GO  IF  EL  LIMIT  NOT  EXCEEDED 

CLR  A 

i EL  LIMIT  REACHED 

LDA  B 

DFLAGE 

; GET  CURR  DIRECTION 

COM  B 

; GET  OPP  DIR 

JSR 

MOTEL 

LDA  B 

#10 

JSR 

WAITE 

;  WAIT  FOR  EL  MOTOR  TO  FINISH  MOVE 

LDA  A 

ttO'FFH 

LDA  B 

DFLAGE 

JSR 

MOTEL 

: STOP  EL  MOTOR,  LIMIT  NO  LONGER  EXCEEDED 

CLR 

LFLAGE 

JMF 

STO 

ST19B 

JMP 

ST7 

;  D I SF'L A YS  "POSITIONER  HALTED"  ,  WAI T  1  SEC.  STO 

; END  STATE  19 

*  * 

; ; 

BEGIN  STATE  20 

: ;  i  > ; ; ; 

;  m ;;;;;;;; ; 

J  * 

ST  20 

LDX 

»MSG9 

JSR 

ASCDIS 

: DISPLAY  "ENTER  PROG  NUMBER" 

LDX 

WDISEL+S 

ST  X 

SAVEX 

ST  20  A 

LDA  A 

1  FLAG 

BFL 

ST20A 

1  WAIT  FOR  KEYENTRY 

CLR 

T-FLAG 

CLR 

ENTRY A 

CLR 

ENTRYB 

LDX 

t»MSG10 

JSR 

ASCDIS 

S DISPLAY  "PROG  : ENTER 

LDA  A 

^  EVENT 

LDa 

ttnr^o 

JSR 

ADDCAL 

LDX  O.X 
JMP  0,X 
(END  STATE  20 


mm 

<  »  i  »  .«  !  m  $  ! 

i  >  I  )  I  I  i  I  S 

;;;;  :t  m  t  m i ; ) n i ) :t;<  1 1 ; 

; ; 

BEGIN  STATE  21 

mm 

ST21 

LSR  A 

; CONVERTS 

KEYCODE  TO  BCD  CODE 

ADD  A 

#30  H 

i CONVERT  TO  ASCII-  ST21  DISPLAYS  PROG  NUM 

STA  A 

DISAZ+5 

;  ECHOES  THE  ENTER  PROG  NUMBER 

STA  A 

PROGN 

j REMEMBERS  THE  PROGRAM  NUM 

LDA  B 

#04 1 H 

STA  B 

D ISEL+3 

; DISPLAYS  "A"  AFTER  ENTER 

STA  B 

FRQGL 

ST21A 

LDA  A 

KFLAG 

BF'L 

ST21A 

CLR 

KFLAG 

LDA  A 

KEYENT 

LDX 

#SP21 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

0,  X 

; END  STATE  21 

S  S  I  I  I  S 

1  1 

•55i;«${»55555»55i555555555$5i555>55555555!55>555$ 

BEGIN  STATE  22  ;; 

is:;;; 

;  5  ; 

ST22 

LSR  A 

S CONVERT  KEYCODE  TO  BCD-ST22  IN  #1  NUM  OF  3  THAT 

TAB 

iMAKE  UP  THE  RASTER  SCAN 

JSR 

PACK 

ADD  B 

#00  OH 

LDX 

SAVEX 

STA  B 

I  N  X 

o,x 

* 

STX 

SAVEX 

S  TC2A 

LDA  A 

KFLAG 

BPL 

STC2A 

CLR 

KFLAG 

LDA  A 

KEYENT 

; GETS  KEYENTRY 

LDX 

#5F22 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

0,  X 

SEND  STATE  22 

•  9  5  5 

BEGIN  STATE  23 

5  ’  5  5 

5 

ST23 

LSR  A 

|CONV  KEYCODE  TO  BCD 

TAB 

1 STC3-D I S  2nd  OF  3  NUM  THAT  MAKES  UP  RASTER  SCAN 

JSR 

FACK 

ADD  B 

#030H 

SCQNV  TO  ASr  ' 

LDX 

SAVEX 

STA  B 
INX 

0,  X 

STX 

SAVEX 

ST23A 

LDA  A 

KFLAG 

BPL 

ST23A 

CLR 

t  flag 

LDA  A 

K EVENT 

C-16 


LDX  WSP23 

JSR  ADDCAL 

LDX  0,X 

JMP  0,X 

; END  STATE  23 


;  *  5 


S  i  !  i 

is;;;; 

'  >  9  »  9  t  • 

LDA 

B 

#02EH 

LDX 

SAVEX 

STA 

B 

0,  X 

INX 

STX 

SAVEX 

LDA 

A 

K.FLAG 

BPL 

ST24A 

CLR 

KFLAG 

LDA 

A 

KEY ENT 

LDX 

#SP24 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

0,  X 

SEND  STATE  24 

!|J5?;?J>»5555?J»J5?55»55??!55?;>5!5?f?J55i55! 
BEGIN  STATE  24 


; ST24-ECH0ES  DECIMAL  POINT 


begin  state 


5  5  i  5  ?  i  i  j 


nMnmnnj 


LSR  A 

; ST25-D I S 

LAST  ENTERED  NUM  OF  3  FOR  RASTER  SCAN 

TAB 

- 

JSR 

PACK 

ADD  B 

#0  3  OH 

LDX 

SAVEX 

STA  B 
INX 

0,  X 

LDA  B 

#027H 

STA  B 

0,  X 

LDX 

**D  1 3EL+5 

i ECHOES  ENTERE  NUM  AND  DEGREE  MARK 

STX 

SAVEX 

i STORES  TRACKING  POINTER 

LDA  A 

PROGL 

CMP  A 

#042H 

BED 

ST25B 

i BRANCH  IF  PROGL  IS  "B" 

CMP  A 

#043H 

BED 

3T25C 

3  BRANCH  IF  PROGL  IS  "C" 

LDX 

ENTRYA 

STX 

FROGA 

LDA  B 

#10 

JSR 

WAITE 

j 1  SEC  WAIT 

3 ADDITION  TQ  STDS. 

CHECKS  TO  SEE  IF  PROG  3*4  IS 

; BEING 

IMPLEMENTED 

(MOD  1.1) 

3 

LDA  B 

FROGN 

I  GET  CURR  PROGRAM  COUNTER 

CMP  B 

3334H 

3  COMPARES  WITH  ASCII  “4" 

BED 

3T25A 

3  GO  IF  STATE-PROGRAM  4 

LDX 

#MSG3 

JSR 

AGCDIS 

; CLEARS  DISPLAY 

LDX 

#MSG10 

JSR 

ASCDIS 

3  DISPLAY  "PROG  s ENTER" 

LDA  A 

PRQGN 

31  A  A 

DI0AH-3 

3  DISPLAYS  THE  PROGRAM  NUM 

LDA  A 

H042M 

T 


< 


C-17 


ST258 


ST25C 
ST  25  A 


****** 


S  ! 


b  IH  A 

D  iSEL+3 

{DISPLAY^  A  "b"  AFTER  ENTER 

STA  A 

PROGL 

; STORES  PROGRAM  LETTER 

JMF 

ST21A 

LDX 

ENTRY A 

STX 

PROGB 

! 

i ADDITION 

TO  ST25B. 

CKS  SEE  IF  PR0G3  BEING  IMPL 

; MOD  U . 1 > 

LDA  B 

PROGN 

CMP  B 

#33H 

{ASCII  "3" 

BEQ 

ST25A 

{GO  IF  STATE=PROG  3 

LDA  B 

#10 

JSR 

WAITE 

LDX 

#MSG3 

{CLEAR  DIS 

JSR 

ASCDIS 

LDX 

#MSG10 

{DISPLAY  "PROG  {ENTER" 

JSR 

ASCDIS 

LDA  A 

PROGN 

STA  A 

DISAZ+5 

LDA  A 

W043H 

{DISPLAY  "C" 

STA  A 

DISEL+3 

STA  A 

PROGL 

{STORES  CURR  PROG  LETTER 

JMf' 

S  T21A 

{JUMPS  TO  ENTER  "C" 

LDX 

ENTRYA 

STX 

PROGC 

LDA  A 

KFLAG 

BPL 

ST25A 

CLR 

b  FLAG 

LDA  A 

) EVENT 

LDX 

#SP25 

JSR 

ADDCAL 

LDX 

0.  X 

JMF 

0 .  X 

{ END  STATE  25 

BEGIN  STATE  00 


;  .• 
: ; 
: ; 


s  s j :s;;; ; 


iSTOO  (MOD  1.1)  PROGRAM  DISTRIBUTION  STATE 


S  TOO 

LDA 

A 

PROGN 

{GET 

PROG  NUM 

CMP 

A 

#3ih 

BEO 

ST  001 

;  BR 

IF 

IN  PROG 

#1 

CMP 

A 

#:2h 

DEO 

ST  002 

;BR 

IF 

IN  FROG 

#2 

CMP 

A 

#33H 

B  LO 

ST  00  3 

{BR 

IF 

IN  PROG 

#3 

JMP 

ST29 

{GO 

TO 

PROG  #4 

ST  001 

JMP 

ST26 

;G0 

TO 

PROG  #1 

ST  002 

JMP 

ST27 

{GO 

TO 

PROG  #2 

ST003 

JMF 

ST  29 

{GO 

TO 

PROG  #3 

i END  STATE  00 


1  ( :  ( (  U  : ; ;  ;  i  :  ;  :  ; ;  (  u  ; : ; ; )  ;  i  ; ! ;  *  ! )  I  (  •  »  i  U  ( 

5  * 

:{  BEGIN  STATE  26 


!!!!?«!): 


1 1 1 i ; : 


i(*t**ltt* 


; ST26  (MOD  1.2)  PATTERN  NUM  ONE 


; CLEAR  X  REG 

; CLEAR  MOTOR  FAG  AND  PROS  FLAG 


3  TOO 


LDX 

SIX 


#0 

MFLAG 


LUX 

F‘ROGA 

;  LETS  TWO— BY  IE  RASTER  F'ARAM  "A' 

STX 

AZK.EY 

; ENTERS  AZ  PART  OF  FIRST  POINT 

LDX 

PROGC 

STX 

ELKEY 

; SAVE  TWO-BYTE  ANSWER 

LDX 

#2D2BH 

; GET  ASCII  "MINUS"  AND  "PLUS"  VALS  FOR  SIGNS 

STX 

AZKEYS 

; ENTER  AZ , EL  SIGN  VALS 

LDX 

#ST26A 

STX 

3TADDR 

i SAVES  RETURN  ADDRESS 

CLR 

PROCNT 

; CLEARS  PROGRAM  STATE  COUNTER 

DEC 

PFLAG 

JMP 

STO 

; SETS  PROG  FLAG, GO  TO  CNTRL  LOOP, ANTICIPATE  RETURN 

ST26A 

LDA 

B 

**02BH 

STA 

B 

AZKEYS 

*  ENTER  #2  POINT  IN  RASTER 

LDA 

B 

EL3IGN 

; GET  CURR  EL  SIGN  VAL 

CMP 

B 

#2BH 

: IS  POSOTIONER  ABOVE  AZ  AXIS 

B£Q 

ST26A1 

; BR  IF  HAS  RASTER  IS  NOT  DONE 

LDA 

A 

EL  BCD 

; GET  CURR  EL  POSITION 

LDA 

B 

EL9CD+1 

LDX 

ttPROGC 

SX  REG  POINTS  TO  DESTINATION 

JSR 

BCD3UB 

; (CURR  EL  POS)-(DEST) 

CMP 

A 

#1 

;CK  PROXIMITY  IF  POSITIONER  TO  TERMINATION  POINT 

BHI 

WEIRD 

; ABSOLUTE  MAG  >  l.XX  DEG 

BRA 

DONE 

; POSITIONER  WITHIN  TERM I NAT  IN  RANGE.  STOP 

WEIRD 

Tsr 

CARRY 

jCk  IF  PAST  POINT 

BMI 

ST26A1 

S RASTER  STILL  WORKING  DO  NOT  STOP 

DONE 

LDX 

t*5T26D 

; DEST  REACHED,  STOP  RASTER 

BRA 

ST26A2 

ST2&A1 

LDX 

#ST26B 

: RASTER  NOT  FINISHED.  GOTO  NEXT  POINT 

ST2BA2 

STX 

STADDR 

; SAVE  RETURN  ADDFESS 

INC 

PROCNT 

S INC  PROGRAM  COUNTER 

JMP 

STO 

;GO  TO  CONTROL  LOOP,  ANTICIPATE  RETURN 

ST2AB 

LDA 

B 

ELSIGN 

:  GET.  CURR  EL  SIGN 

CMP 

B 

t*2BH 

; HAS  POS  CROSSED  AZ  AXIS? 

BEQ 

ST26B0 

jGG  IF  STILL  ABOVE  AXIS 

LDA 

A 

ELKEY+1 

-.CROSSED  AXIS  MUST  COMPENSATE 

ADD 

A 

PRUGB+1 

i (CURR  EL) +( INCREMENTAL  ANGLE) 

DAA 

TAB 

i SAVES  LS  INFO  IN  ACCB 

LDA 

A 

ELKEY 

ADC 

A 

PROGB 

DAA 

BRA 

ST 26601 

;BR  TO  ENTER  EL  CO-ORDINATE 

3T26B0 

LDA 

A 

ELKLY 

; CALC  POINT  #3 

LDA 

B 

ELI  EY  +  1 

;  GET  CURR  EL  POS 

LDX 

ttF'ROGB 

; GET  ENTERED  INC  ANGLE 

JSR 

BCDSUB 

3T26B0 1 

STA 

A 

ELKEY 

; ENTER  IS  THIRD  POINT 

STA 

B 

ELKEY+1 

T  ST 

CARRY 

; HAS  POSITIONER  CROSSED  AZ  AXIS? 

BEQ 

ST26B1 

;  BR  IF  NOT  CROSSED  AXIS 

LDA 

A 

M2DH 

; ONCE  CHANGED  TO  MINUS,  WILL  STAY  MINUS. 

STA 

A 

ELI  EYS 

; CHANGES  EL  SIGN  TO  MINUS  AT  CROSSING 

S726B l 

LDA 

B 

PROCNT 

; GET  S  CURRENT  VAL  OF  FROG  COUNTER 

CMP 

B 

It3 

5  IS  PERIOD  OF  SCAN  COMPLETE*' 

BED 

31 26B2 

;BR  IF  PERIOD  NOT  COMPLETE 

LDX 

**ST26C 

; PERIOD  OF  SCAN  WILL  BE  COMPLETE 

INC 

PROCNT 

BRA 

5T26B3 

ST26B2 

LDX 

«ST26A 

; RET  TO  SECOND  POINT 

cl  Fa- 

PROCNT 

; CLEARS  PROCNT, START  SCAN  OVER 

ST26B3 

si  X 

STADDR 

:SAVE  RETURN  ADDRESS 

JMP 

STO 

IGO  CONTRL  LOOP,  ANTICIPATE  RETURN 

ST26C 

LDA 

B 

t*2DH 

: ENTER  POINT  A 

STA 

D 

AZKEYS 

•.REVERSE  SIGN  OF  AZ  POSITION 

LDX 

W3T26B 

I  RETURN  FOR  POINT  3  INSTRUCTIONS 

STX 

STADDR 

; SAVE  RETURN  ADDRESS 

C-19 


("'KOCnI 

STO 

F'FLAG 

ST7 


jEND  STATE  26 


;  inc  i-'AutiWoii  cuuwitK 

l CLEAR  PROGRAM  FLAG 
S DISPLAY" POSITIONER  HALTED" 

; GO  TO  CONTROL  LOOP  AND  DO  NOT  COME  BACK 


5 

: 

BEGIN  STATE  27 

f  *  y  5  s  *  j  * 

I  * ; » 

i  *  i  m  i  ) 

i  * 

; ST27-PATTERN  #2 


ST27 

LDX 

40 

STX 

MFLAG 

LDX 

FROGA 

STX 

AZkEY 

LDX 

FRGGC 

STX 

ELKEY 

LDX 

42D2BH 

STX 

AZKEYS 

LDX 

4ST27A 

STX 

STADDR 

CLR 

PROCNT 

DEC 

PFLAG 

JMP 

STO 

ST27A 

LDA 

B 

Ki.ODH 

STA 

B 

ELKEYS 

LLn 

B 

AZ3IGN 

CMP 

» 

itODH 

BED 

ST27A1 

LDA 

A 

AZBCD 

LDA 

B 

AZBCD+1 

LDX 

rtpRQGC 

JSR 

BCDSUB 

CMP 

A 

41 

BHI 

NEIRD1 

BRA 

DONE  1 

WEIRD1 

TST 

CARRY 

BN  I 

ST27A1 

DONE  1 

LDX 

43T27D 

BRA 

ST27A2 

ST27A1 

LDX 

4ST27B 

3T27A2 

STX 

STADDR 

INC 

PROCNT 

JMP 

STO 

ST27B 

LDA 

B 

AZSIGN 

CMP 

B 

42DH 

BED 

ST27B0 

LDA 

A 

AZKEV+1 

ADD 

A 

PROGB+1 

DAA 

TAB 

LDA 

A 

AZKEY 

ADC 

A 

PROGB 

DAA 

BRA 

ST27B01 

3T27B0 

LDA 

A 

AZKEY 

LDA 

B 

AZKEY+1 

LDX 

4PR0GB  ; 

J 13  R 

BCDSUB 

ST27801 

STA  A  AZKJ 

STA 

E 

AZKEY+1 

T£jT 

CARRY 

H  0 

jT.'.ZBI 

; THIS  CODE  SAME  AS  ABOVE 


; ENTER  IN  THIRD  POINT 


C-  20 


LDA 

B 

#2BH 

STA 

B 

AZKEYS 

ST27B1 

LDA 

B 

PROCNT 

CMP 

B 

#3 

BEQ 

ST27B2 

LDX 

#ST27C 

INC 

PROCNT 

BRA 

ST27B3 

ST27B2 

CLR 

PROCNT 

LDX 

4ST27A 

ST27B3 

STX 

STADDR 

JMP 

STO 

ST27C 

LDA 

B 

#2BH 

STA 

B 

ELKEYS 

LDX 

#ST27B 

STX 

STADDR 

INC 

PROCNT 

JMP 

STO 

ST27D 

CLR 

PFLAG 

JMP 

ST7 

; END  STATE  27 


021 


t  1  > 


) ; 


BEGIN  STATE  29 

; ST29-GENERATES  ONE  CIRCLE  W/RADIUS  "A"  (MOD  1.2) 


i 


2COOH 

ttO 

PROANG 
MFLAG  | 
=1  PROGA 

B  FRQGA+-1 

DIVIDIOO 
BCDBIN 
*  RADIUS 

B  RADIUS+1 

PFLAG 
PROANG 
*♦361 
ST29B 
DPROANG 
TRGVALUE 
H3T29A 
STADDR 
PROANG 

PROANG 
STO 
PFLAG 
ST7 
STATE  29 


( INIT  ANGLE  COUNTER 
(CLEAR  PROGFLAG  AND  MOTFLAG 
(GET  ENTERED  ANGLE  "A" 

(DIVIDE  ANGLE  BV  100  < XX. XX=>OOXX. ) 
(CONVERT  BCD  TO  BIN 
(SAVE  TWO  BYTE  RESULT 


GET  UPDATED  ANGLE  COUNTER 
COMPARE  PROANG  TO  361  DEGREES 
BR  IF  PATTERN  FINISHED 
(SET  X  POINTER  TO  ANGLE  POINTER 
(GET  SIN, COS 


(BEGIN  UPDATING  PROANG 
(INC  PROANG  BY  1  DEG 


BEGIN  STATE  30 


; ST30-SET  NEGATIVE  ELEVATION  LIMIT 


#MSG16 

ASCDIS  (DISPLAY  "NEG  EL  LIMIT" 

KDISEL+6 

SAVEX  (SAVE  DISPLAY  TRACKING  POINTER 

NELLIM  (GET  CURRENT  NEGATIVE  ELEVATION  LIMIT 

NELL  I M+ 1 

BCDDT3  (DISPLAY  CURRENT  NEG  EL  LIM 


I 


1 


ST30A 


ST30B 


JSR 

LDX 

STX 

LDA  A 

BP  L 

CLR 

LDA  A 

LDX 

JSR 

LDX 

JMP 

LDX 

STX 

BRA 

;  END 


MOVED 
itST'OB 
STADDR 
l  FLAG 
ST30A 
KFLAG 
KEYENT 
ttSF'30 
ADDCAL 
0,  X 
O,  X 

ENTRYA 
NELLIM 
5T30A 
STATE  30 


;  F I X  LAST  ENTRY  IN  DECIMAL  F'T 
i STORE  RETURN  ADDRESS 


t  i  »  I  M  U  f  1  ’ 


’  N  n  i  t  )  i  i  i  !  !»  i  I  t  J  !  f  )  5  i  )'!  N  !  ?  J  !  i  i  j  »'  i  N  i  I  t  J  i  t  i  i  i  i  i  !  i 
BEGIN  STATE  31 


>  > 


!*»*>**»! 


>>***?*! 


; s  i 


ST3 1 


ST31A 


ST31B 


ST32 


ST32A 


: ST31 -SET 

POS  EL  LIMITS  (MOD 

LDX 

#MSG17 

JSR 

ASCDIS  i DISPLAY 

LDX 

ttDISEL+B 

STX 

SAVEX 

LDA  A 

PELLIM  ; GET  POS 

LDA  B 

PELLIMt-1 

JSR 

BCDDIS 

JSR 

MOVED 

LDX 

#ST3TE< 

STX 

STADDR 

LDA  A 

KFLAG 

BPL 

ST31A 

CLR 

('.FLAG 

LDA  A 

( EVENT 

LDX 

VSF'Zt 

JSR 

ADDCAL 

LDX 

X 

JMP 

0,  X 

LDX 

ENTRYA 

STX 

PELLIM 

BRA 

ST31A 

jEND  STATE  3l 

i :  n  >s  s  i;; : 

BEGIN  STl 

•  >  «  m  *  J  ?  !  ' 

»»»»S»**J?**J$$***J! 

; ST3C-SET 

NEG  AZIMUTH  LIMIT 

LDx 

ttMSGia 

JSR 

ASCDIS  jDISFLAY 

LDX 

#D  ISEL+6 

STX 

SAVEX 

LDA  A 

NAZLIM  ; GET  POS 

LDA  B 

NAZLIM+1 

JSR 

BCDDIS 

JSR 

MOVED 

LDX 

ttSTG-CB 

STX 

STADDR 

LDA  A 

KFLAG 

Dl  L 

gt;2a 

LLK- 

mips 

l'POS  EL  LIMIT" 


!5355?Ji?5?!5! 


C-23 


1 


ST32S 


LDA  A 

KEYENT 

LDX 

4SP32 

JSR 

ADDCAL 

LDX 

0.  X 

JMP 

O.X 

LDX 

ENTRYA 

STX 

NAZLIM 

BRA 

ST32A 

j UPDATE  NEGATIVE  AZIMUTH  LIMIT 


5  5  !  5  ! 

; 

5*55? 


; END  STATE  ' 
!  5  5  5  5  5  5  5  5  5  5  5  5  ! 


5555555555555555 
BEGIN  STATE  33 
5555555555555555 


ltMM< 


5 

ST33 


ST33A 


ST33B 


; ST33-SET 

POSITIVE 

AZIMUTH  LIMIT  (MOD  1.1) 

LDX 

4MSG19 

JSR 

ASCDIS 

; DISPLAY  "POS  AZ  LIMIT 

LDX 

4DISEL+6 

STX 

SAVEX 

LDA 

A 

PAZLIM 

LDA 

B 

PAZLIM+1 

JSR 

BCDDIS 

(DISPLAY  CURRENT  POS  A: 

JSR 

MOVED 

LDX 

4ST33B 

STX 

STADDR 

LDA 

A 

KFLAG 

BPL 

ST33A 

CLR 

1  FLAG 

lDA 

A 

)  EVENT 

LDX 

#SF33 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

0,  X 

LDX 

ENTRYA 

STX 

PAZLIM 

. 

BRA 

ST33A 

5  END  STATE  33 


555555555? 


5  5 

55555? 


ST34 


5  5 


i  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5 
BEGIN  STATE  34 

?  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  '  5  5  5  5  5  5  5  ? 
5  5T34-INPUT  NUMBERS  FOR  SETTING  LIMITS — 1ST 


I  5  5 
5  5 
1  5  5 


ST34A 


LSR 

A 

5  BEGIN  INPUT, CONVERT  KEYCODE 

TAB 

JSR 

PACK 

; PACKS  BCD  INPUT  INTO  PACKED 

ADD 

B 

#30H 

5  CONVERT  TO  ASCII  4 

LDX 

SAVEX 

STA 

B 

0,X 

INX 

5  INC  TRACKING  POINTER 

srx 

SAVEX 

LDA 

A 

KFLAG 

BPL 

ST34A 

CLR 

KFLAG 

LDA 

A 

KEYENT 

LDX 

4SP34 

JSR 

ADDCAL 

LDX 

0,X 

JMP 

0,  X 

55555? 

:  ;  5 : 


SEND  STATE  34 
?  5  5  ?  :  ?  5  ?  5  5  5  5 


5  5  5  ;  5  ?  5  5  5  5  5  5  5  5  5  *  5  5  5  5  5  5  I  5  5  5  5  5  5  ? 
BEGIN  STATE  35 


; ;  j  i ;  i  ? :  ?  s :  i : ; 


n;; 

:  9 : ; 


ill! 
; ; 
J :  t  i 
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ST35-1NPUT  BCD  NUMBER  . — 2ND 


ST35 

LSR  A 
TAB 

5  CONVERT  KEYCODE  TO  BCD  CODE 

JSR 

PACK 

ADD  B 

#30H 

LDX 

SAVEX 

STA  B 
INX 

o,x 

STX 

SAVEX 

ST35A 

LDA  A 

KFLAG 

BPL 

ST35A 

CLR 

KFLAG 

LDA  A 

KEYENT 

LDX 

HSP35 

J3R 

ADDCAL 

LDX 

0,  X 

JMP 

0,  X 

t END  STATE  33 

;  t 

BEGIN  STATE  36 

; ST36- 

INPUT  DECIMAL  POINT 

3T36 

LDA  B 

t*2EH  S  CONVERT  INPUT  TO  BCD  CODE 

LDX 

SAVEX 

STA  B 
INX 

0,  X 

STX 

SAVEX 

3T36A 

LDA  A 

KFLAG 

BPL 

ST36A 

CLR 

t  FLAG 

LDA  A 

KEYENT 

LDX 

HSP3a 

JSR 

ADDCAL 

LDX 

0,  X 

JMP  . 

0,  X 

SEND  STATE  36 

M  1  ’  *  «  > 

m  i ;  1 1 1  m  i  m  1 1  m  m  m  m  m  m  I  m  m  m  m  m  i 

; ; 

BEGIN  STATE  37 

i  m  m 

555>55?555I5>555?5Jj>;?*5j>}555555555??>?5!»!55?555! 

» 

| ST37- 

INFUT  LAST  BCD  CHARACTER — 3RD 

ST37 

LSR  A 
TAB 

; CONVERT  INPUT  KEYCODE  TO  BCD  CODE 

JSR 

PACK 

ADD  B 

#3  OH 

LDX 

SAVEX 

STA  B 

o.x 

ST37A 

LDA  A 

entrya 

LDA  3 

ENTRYB 

JSR 

TSTANG  ;TEST  FOR  ANGLE  LIMIT  CONDITION 

LDX 

STADDR 

JMP 

0 ,  x 

SEND  STATE  37 

m  M  m 

I  III  III 

n  *  n  ?  >  i » »  m  m  •  •  n !  1 1 !  j  i  h  »» n » « ?  >  i  >  n  j  > » ?  n  >  j  i  ? !)  r 

;  f 

BEGIN  STATE  33 

?  j  ; 

; 

!£m 

in  m  m ;  1 1 1 1 1 1 1 1  m  m  m  1 1  m  m  m  m  I  m  m  m ; 

; ; 


' »  jj  j  »  j  » 


SISIS!!! 

mum 


;  s ; 
;  > 
; ; ; 


i ; 

s  m i m 


mi' 

5  ! 

mi 


ST  33 


; ST38-SET 

A Z  GIMBAL^  SPEED 

LDX 

#MSG2i 

JSR 

A3CDIS  ; DISPLAY  'AZ  GIMBAL  SPEED 

t.  !>' 

i  SP.  >9 

C-25 


ST3SA 


ST38B 


b  i  a 

bMVEX 

LDA 

A 

A Z SPEED 

J GET  LAST  USER  SELECTED  GIMBAL  SPEED 

STA 

A 

0,  X 

LDX 

#ST3SB 

STX 

STADDR 

S SAVES  RETURN  ADDRESS 

LDA 

A 

KFLAG 

BPL 

ST3SA 

CLR 

KFLAG 

LDA 

A 

KEYENT 

LDX 

#SP30 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

0,  X 

LDA 

B 

SPEED 

; GET  USER  SET  GIM  SPEED  (ASCII) 

STA 

B 

AZSPEED 

5  SAVE  AZ  GIM  SPEED 

LDA 

B 

GIMSPEED 

IGT  HEX  FORM  GF  GIM  SPEED 

STA 

B 

AZSPD 

;  SAVE  HEX  FORM  OF  GIMBAL  SPEED 

BRA 

ST3SA 

iGD  BACK  TO  WAIT  FOR  ANOTHER  KEYENTRY 

{END  STATE  30 


i 

< 1 1 ; m ; 


»S55?55?il?>>55!5SS5! 
BEGIN  STATE  39 


5!55?555?5 


;;;;;;;;;;;; 

IS****!***)* 


) ST39-SET  EL  GIMBAL  SPEED  (MOD  1.3) 


ST39 

LDX 

#M3G22 

JSR 

ASCDIS 

5  DISPLAY  "EL  GIMBAL  SPEED" 

LDX 

4DISEL+8 

STX 

SAVEX 

LDA  A 

ELSPEED 

; GET  LAST  USER  SELECTED  GIMBAL 

STA  A 

0,  X 

LDX 

#ST39B 

- 

STX 

STADDR 

ST39A 

LDA  A 

KFLAG 

BPL 

ST39A 

CLR 

1  FLAG 

LDA  A 

V EVENT 

LDX 

*SP3? 

JSR 

ADDCAL 

LDX 

0,  X 

JMP 

0.  X 

ST39B 

LDA  B 

SPEED 

j  GET  USER  SEL  GIM  SPD  (ASCII) 

STA  B 

ELSPEED 

; SAVE  EL  GIM  SPEED 

LDA  B 

GIMSPEED 

; GET  HEX  FDRM  OF  GIM  SPD 

STA  B 

ELSPD 

; SAVE  HEX  FORM  OF  GIM  SPD 

BRA 

ST39A 

; END  STATE  39 

I  i  ?  1  5  S 

m  » m «  m 

l i ; 

«  » 

BEGIN  STATE  40 

nun 

h  m  m  i 

:ST40- 

INPUT  SINGLE 

DIGIT  GIMBAL  SPEED  (MOD  1.3) 

ST40 

LSR  A 
TAB 

ADD  B 

#30H 

j CONVERT  KEYCODE  TO  0-9 

LDX 

SAVEX 

STA  B 

0,X 

STA  B 

SPEED 

LDX 

WSF'DTB 

JSR 

ADDCAL 

LDA  B 

0.  X 

STA  B 

GIMSPEED 

LDX 

STADDR 

JMP 

0,  X 

: END  STATE  40 


C-26 


i 


1  I  I  1  M  1 

; ; 

1 1 1  1 1 1  5  IS  M  1  1 

1 1 1 1 S I M I  I M IS  1 M 1  IS  IS  M 1 1 1 ; 1 1  1 1 1 1  I  IS  1 

II  FPTBCD-  SUBROUTINE 

1 1 

1 1 

CONVERSION  OF  32  BIT 

FLOATING  POINT  NUMBER  INTO  A  32  1 1 

1  1 

BIT  PACKED  BCD.  ROUTINE  ASSUMES  32  FLT  PT  NUM«"FPT32"  || 

1 1 

ENTRY: 

X-REG  POINTS 

TO  LOCATION  OF  RESULT  I  I 

1 1 

EXIT 

: 

BCD  RESULT  SPECIFIED  BY  X  RES,  RES  A, B  DESTROYED  ;| 

1  M  1 1  M 
| 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

FPTBCD 

STX 

SAVEX 1 

(SAVES  RESULT  POINTER 

CLR 

INTREG 

| INITIALIZES  INTEGER  REGISTERS 

CLR 

1NTREG+1 

CLR 

0,  X 

} INIT  BCD  SIGN  VAL 

LDX 

#FPT32 

(SET  POINTER  TO  32  BIT  NUM 

LDA 

A 

0,X 

|  GET  EXP'  PART  OF  32  BIT  NUM 

BEQ 

FPT7 

; DONT  SHIFT  IF  EXP=0 

BPL 

FPTI  . 

jBR  IF  32  BIT  NUM  >0 

LDX 

SAVEX 1 

(IT  IS  NEG,  FIX  BCD  SIGN  BYTE  TO  BE  NEG 

DEC 

0,X 

(SIGN  BYTE  NEGATIVE 

LDX 

#FPT32 

j RESET  DATA  POINTER 

FPT1 

ASL 

A 

j  CONVERTS  7  BIT  2S  COMP  TO  8  BIT  COMP 

ASR 

A 

BPL 

FPT4 

|  BR  TO  POS  SHIFT  ROUT  IF  32  BIT  #  POS 

LDA 

B 

#17 

5 INIT  BIT  COUNTER  (MOD  1.4) 

FPT2 

LSR 

1,X 

; MOVES  BINARY  POINT  OVER  TO  LEFT 

ROR 

2,  X 

|  (MOD  1.4> 

ROR 

3,  X 

}  (MOD  1.4) 

DEC 

B 

; DEC  BIT  COUNTER 

BNE 

FPT3 

;BR  IF  UNDERFLOW  DOES  NOT  OCCUR 

BRA 

FPT7 

;BR  TO  END  OF  ROUTINE 

FPT3 

INC 

A 

; ADJUSTS  THE  EXP 

BNE 

FPT2 

jBR  THRU  LOOP  UNLESS  BIN  POINT  ADJUSTED 

BRA 

FPT7 

j  BR  TO  CONVERSION  PART  OF  ROUTINE 

FPT4 

LDA 

B 

#17 

5 INIT  BIT  COUNTER  (MOD  1.4V 

FPT3 

ASL 

3,X 

j  BEGIN  POS  SHIFT  ROUTINE 

ROL 

2,  X 

j  ROTATE  THIRD  BYTE  OF  32  BIT  NUM 

ROL 

1,X 

jROTATE  SECND  BYTE  OF  32  BIT  NUM 

ROL 

INTREG+1 

j ROTATES  32  BIT  NUM  INTO  INTEGER  REG 

ROL 

INTREG 

DEC 

B 

(DEC  BIT  COUNTER 

BNE 

FPT6 

jBR  IF  OVERFLOW  HAS  NOT  OCCURED 

SEV 

jSETS  OVERFLOW  BIT  TO  DENOTE  AN  ERROR 

BRA 

FPT8 

I0R  TO  END  OF  ROUTINE 

FPT6 

DEC 

A 

! ADJUST  EXP 

BNE 

FPT3 

jBR  THRU  LOOP  UNLESS  BIN  PT  ADJSTED 

FPT7 

LDA 

A 

l.X 

| GET  BIN  FRACTION  IN  ACCA 

LDA 

B 

2.X 

1 (MOD  1.4) 

PSH 

A 

1  SAVE  A 

P3H 

B 

| SAVE  B  (MOD  1.4) 

LDX 

SAVEX! 

(SETS  DATA  POINTER 

INX 

LDA 

A 

INTREG 

1  RETRIEVES  THE  BIN  INTEGER 

LDA 

B 

INTREG*1 

BSh 

BINBCDED 

(CONVERT  INTEGER  PART 

LDX 

SAVEX 1 

1  SETS  DATA  POINTER 

INX 

INX 

INX 

PUL 

B 

|  (MOD  1.4) 

PUL 

A 

BSR 

BINFPT 

j CONVERT  FRACTIONAL  PART 

FPT9 

RTS 

|  RETURN 

1 1 ;  1 1 1  ■  1 1 1 1 1 1  ■  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  n  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  <  1 1 1 1 1 1 ;  1 1 1 1  h  1 1 1 1 

II  “ 0 1 NBC  DC  D " -SUBROUT I NE  1 1 

M  BINARY  TO  PACKED  BCD  CONVERSION  ROUTINE  ; , 

|l  LOAD  ACCA.ACCB  WITH  A  16  BIT  BIN  NUN 

II  LOAD  INDEX  REG  WITH  ADDRESS  OF  MS  BYTE  OF  WHERE  PUT  PACKED  BCD  ANS  , g 


j|  RE TURNS  WITH  PACKED  INFO  IN  SPEC  LOCATION  AND  IN  ACCA,ACCB  <: 
II  THE  LEAST  4  MS  DECIMAL  VALS  WILL  BE  CONTAINED  IN  THE  PACKED  BCD  ANS| ; 
miiMfimtitiiiimtiiiiiiiiiuiKiMiHHniimiiiiiiiiiimiimiiiiiii 
» 


BINBCDED 

STX 

SAVEX 

{SAVE  DATA  POINTER 

LDX 

4K10K 

1  IN ITS  X-REG  FOR  1ST  BCD  CONV  CONST 

CLR 

ENTRY  1 

CLR 

ENTRY2 

ZVDEC1 

CLR 

SAVEA 

1  CLEAR  BCD  CONVERSION  COUNTER 

ZVDEC2 

SUB 

B 

1,X 

SBC 

A 

0,x 

BCS 

ZVDECS 

|BR  IF  SUB  PRODUCES  OVERFLOW 

INC 

SAVEA 

| DEC  CHAR  BEING  BUILT,  INC  SAVEA 

BRA 

ZVDEC2 

ZVDECS 

ADD 

B 

i,x 

ADC 

A 

o,x 

1  RESTORES  PARTIAL  RESULT  UPON  OVERFLOW 

PSH 

A 

1  SAVE  ACCA 

LDA 

A 

SAVEA 

1  GETS  BCD  CONVERSION  COUNTER 

BSR 

PACKED 

| PACKS  NEWLY  FORMED  BCD  CHARACTER 

PUL 

A 

| RESTORES  ACCA  TO  FORMER  VALUE 

INX 

INX 

CPX 

4K10K+10 

;  TESTS  TO  SEE  IF  LAST  CONSTANT  HAS  BEEN  USED 

BNE 

ZVDEC1 

LDA 

A 

ENTRY  1 

| LAST  CHARACTER  HAS  BEEN  REACHED 

LDA 

B 

ENTRY2 

LDX 

SAVEX 

STA 

A 

0,  X 

STA 

B 

1,X 

{SAVES  16 

RTS 

; END  BINBCDED  SUBROUTINE 
If  "PACKED"  SUBROUTINE 

I f  PACKS  BINARY  NUMBER  INTO  BCD  FORM 

If  ACCA  SHOULD  CONTAIN  THE  UNPACKED  BCD  FORM 

I f  ROUTINE  DESTROYS  CONTENTS  OF  ACCA 

i 


ASL 

ENTRY2 

| ONE  BIT  LEFT  SHIFT  WITH  ZERO  FIL 

ROL 

ENTRY 1 

ASL 

ENTRY2 

ROL 

ENTRY 1 

ASL 

ENTRY2 

ROL 

ENTRY 1 

ASL 

ENTRY2 

ROL 

ENTRY 1 

| SHIFTS  16  BIT  BINARY  INFO  OVER  ONE  CHAR 

ADD  A 

ENTRY2 

STA  A 

ENTRY2  ' 

1 ENTRY2  FORM- "XO", PACKS  ANOTHER  UNPACKED  FORM 

RTS 

) RETURN  FORM  SUBROUTINE 

| END  PACKED 

Ulli! 

;  1 1 ; n m m h hi m m m i h m m ; ; m ; i i ;  h  n ;  i  >  1 1 1 1  m  i 

"BINFPT"  SUBROUTINE 

CONVERSION  OF  FRACTIONAL  PART  OF  BINARY  NUM  TO  PACKED  BCD  II 
LOAD  FRACTIONAL  PART  IN  ACCA  BEFORE  EXECUTING  II 
ACCB  IS  USED  IN  CALCULATION  fl 
ROUTINE  EXITS  WITH  BCD  ANSWER  <4  DEC  PLACES)  IN  ACCA, ACCB  II 


i 

BINFPT 


STX 

SAVEX 

1  SAVES  DATA  POINTER 

STA 

A 

SAVEA 

ISAVE  FRACT  PART 

STA 

B 

SAVEB 

| (MOD  1.4) 

LDA 

B 

416 

| (MOD  1.4) 

STA 

B 

SAVEC 

|SAVE  BIT  COUNTER  (MOD  1.4) 

LDX 

CLR 

A 

4C0NST 

(SET  POINTER  IN  ACCX  AT  FIRST  BYTE  OF  CONSTANTS 

C-28 


i 


STA  A 

TEMPA 

|SAVE  ACCA  TEMPORARILY 

ASL 

SAVEB 

| LOOK  AT  NEXT  BIT 

ROL 

SAVEA 

BCC 

BIN2 

; BR  PAST  LOOP  IF  C-0 

TBA 

jOUT  ACCB  INTO  ACCA 

ADD  A 

l.X 

; C”1 , ADD  IN  CONSTANT 

DAA 

TAB 

LDA  A 

TEMPA 

| RETRIEVE  ACCA  FROM  TEMP  STORAGE 

ADC  A 

0,X 

DAA 

INX 

I  INC  ACCX  TO  NEXT  CONSTANT 

INX 

DEC 

SAVEC 

| DEC  BIT  COUNTER 

BNE 

BIN1 

; BR  THRU  LOOP  UNTIL  8  BITS  ARE  SHIFTED 

LDX 

SAVEX 

iRETREIVE  DATA  POINTER 

STA  A 

0,X 

jSAVE  16  BIT  PACKED  BCD  CHARACTE 

STA  B 

l.X 

RTS  |RET  FROM  SUBROUTINE 

i  ■  1 1  i  1 1 ;  • ; ; ; ;  <  >  i )  i  u  > ;  > ;  i  it  i  • ;  i ; ; ;  • ;  i  i  i  i  s  i ; ; ; ; ; ; ; ; ;  m;  i  s  n  i )  1 1 1  ii  i  m  m 

SS  "DIVIDIOO"  SUBROUTINE  II 

;;  DIVIDES  BCD  VAU  BY  100  ;; 

;;  ENTRY:  ACCA,  ACCB  CONTAIN  16  BIT  BCD  NUMBER  II 

I |  EXIT  :  ACCA, ACCB  CONTAIN  16  BIT  BCD  RESULT  ;i 

i ;;  1 ; ; I ;; i  > ; ; )  > ;  > $ ; 1 1 ;  1 1 1 1 ; ; i ; 1 1 ; ii ; i ; ;  i ; ;  i ;  1 1 1 1 1 1 ;  i ; ; ;  i ii M m 


DIVIDIOO  TAB  I  THROWS  AWAY  THE  FRACTIONAL  PART 

CLR  A  | ACCA, ACCB="OOXX" 

RTS  j RETURN  FROM  SUBROUTINE 

|  END  DIVIDIOO 

;  s  I ;  H 1 1 1 ; ; ; 1 1 ;; 1 1 1 ; m i ; ; ; 1 1 1 1 s 1 1 1 1 ; ; i ; i M i I ; 1 1 ; l ; 1 1 1 1 ; i « ;  i ; ;  1 1 1 1 1 1 1 1 ; 

||  " CHSIGN"  SUBROUTINE 

I |  CHANGES  THE  SIGN  OF  A  TWO  BYTE  COORD  FROM  ONE  STATE 

I J  TO  THE  OTHER 

;i  ENTRY:  ACCB  CONTAINS  SIGN  INFO.X  REG  POINTS  TO  LOCATION  OF 

II  SIGN  INFO 

II  EXIT  i  ORIGINAL  SIGN  INFO  AUTOMATICALLY  CHANGED, ACCB  DESTROYED 

iiiiiliiiii;;iti;;;!i;;mtl{!i;i;;r,;;ii!ii)ii!iii!iiiiiii!;iiiiiii!il 

t 

CHSIGN  CMP  B  #2BH  ;FIND  OUT  SIGN 

BEO  CHSIGN l  | BR  IF  PLUS 

LDA  B  #2BH  ;SIGN  IS  MINUS 


|CH  PLUS  TO  MINUS 
I  UPDATE  SIGN  VAL 
i RETURN 


CHSIGN  CMP  B  #2BH  ;FIND  OUT  SIGN 

BEO  CHSIGN l  | BR  IF  PLUS 

LDA  B  #2BH  ;SIGN  IS  MINUS 

BRA  CHSIGN2 

CHSIGN1  LDA  B  62DH  |CH  PLUS  TO  MINUS 

CHSIGN2  STA  B  0, X  ; UPDATE  SIGN  VAL 

RTS  ; RETURN 

;  END  CHSIGN 

I  ;  1 1 1 1 1  :  I  «  {  ;;  |  S  ;  |  $  ;  1 1  ;  ;  1 1  f  1 1 1  ;  1 1 1 1 1 1 1 1 1 1 1 1  }  1 1 1 1  }  1 1 1 1 1 1 1 1  ;  1 1 1  )  I  ;  1 1  }  1 1 1  ;  I  ;  I 

II  "CONSIGN"  SUBROUTINE  .  ;| 

II  GETS  SIGN  OF  32  BIT  FP  *  AND  FINDS  ASCII  EQUIV  ;i 

II  ENTRY:  ACCB  CONTAINS  SIGN  PORTION  OF  FP  # 

II  X  REG  CONTAINS  LOCATION  OF  RESULTING  SIGN  ;| 

II  EXIT  i  APPROPRIATE  SIGN  IS  LOCATED,  ACCB  DESTROYED.  II 

1 1 1 1 1 1  <  1 1 1 1 1 1 1 1 1 1 ;  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 H 1 1  i  I ;  1 1 1 1 1 1 1 1  n  1 1 1 1 1 1 1 1  i  I 

i 

CONSIGN  BMI  CONS I GN 1  | BR  IF  NEG 

LDA  B  #2BH  I  SIGN  IS  PLUS  ASCII  -  2BH 

BRA  C0NSIGN2 

CONS I GN 1  LDA  B  *2DH  {SIGN  IS  MINUS  ASCII  IS  2DH 

C0NSIGN2  STA  8  0, X  | UPDATE  SIGN  VAL 

RTS  I  RETURN 

| END  CONSIGN 

;  1 1 1 1 1 1 1  M  1 1 1 1 1 1 1 1 1 1 1  ll  1 1 1  n  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1| 1 1 1 1 1 1 1 « 1 1 1 1 
j|  "TRG VALUE "  SUBROUTINE  -  SIN, COS  OF  BINARY  ANGLE  || 

i;  ENTRY:  ACCR-*  BYTES,  X-REG  POINTS  TO  ADDR  OF  BIN  ANGLE  II 


I 


II  tui'  :  L  amt  VAL  AZKfcY  AND  fcLKEY  ARE  REPLACED,  ACCB  DESTROYED  f| 

iimimuiummmnmummimmmimiuutmiumnmum 
i 


TRGVALUE  LDA 

B 

•2H 

|ACCB-#8YTE  TO  BE  PUT  AT  TOS 

8SR 

PUSH 

} PUSH  ANGLE  ONTO  APU  STACK 

BSR 

FLTS 

(CONVERT  ANG  TO  32  BIT  FLT  PT  FORM 

LDX 

•RADIANS 

jX-REG  POINTS  TO  P 1/180  CONST 

LDA 

B 

#4H 

BSR 

PUSH 

BSR 

FMUL 

(BIN  ANG  *  PI /ISO  -  ANGLE  IN  RADIANS 

RESULT 

BSR 

PTOF 

; DUP  BIN  ANGLE  AT  NOS 

BSR 

COS 

| T AKE  COS  OF  ANGLE 

LDX 

•RADIUS 

; X-REG  POINT  TO  RADIUS  16  BIT  FIXED 

POINT 

.  LDA 

B 

•2H 

BSR 

PUSH 

BSR 

FLTS 

(CONVERT  RADIUS  TO  32  BIT  FL  PT  • 

BSR 

PTOF 

(PUSH  32  BIT  TOS  TO  NOS 

BSR 

PQPF 

(32  BIT  APU  STACK  POP 

BSR 

FMUL 

(RADIUS*CaS<ANG>-  ELEVATION 

LDX 

•FPT32 

.  LDA 

B 

•4H 

.  BSR 

PULL 

(PULL  ELEVATION  FROM  APU  STACK 

LDX 

•ELRESULT 

(X  POINTS  TO  LOCATION  OF  RESULT 

JSR 

FPTBCD 

(CONVERT  32  BIT  FP  TO  4  BYTE  BCD  RESULT 

BSR 

SIN 

BSR 

FMUL 

( RADIUS4SIN ( ANG) =AZ 

LDX 

•FPT32 

LDA 

B 

•4H 

BSR 

PULL 

LDX 

•AZRESULT 

« X-REG  POINTS  TO  RESULT 

JSR 

FPTBCD 

(CONVERT  32  BIT  FP  TO  4  BYTE  BCD  RESULT 

LDX 

•ELKEYS 

LDA 

B 

ELRESULT 

(GET  1ST  BYTE  OF  RESULT 

BSR 

CONSIGN 

(CONVERTS  FP  SIGN  TO  ASCII  VAL 

LDX 

•AZKEYS 

LDA 

B 

AZRESULT 

BSR 

CONSIGN 

LDX 

•ELRESULT 

LDA 

A 

2,  X 

(GET  MSBYTE  OF  MAG  VAL  OF  FPT 

LDA 

B 

3,X 

(GET  LSBYTE  OF  MAG  VAL  OF  FPT 

STA 

A 

ELKEY 

(UPDATE  EL  COORD 

STA 

B 

ELKE Y ♦ 1 

LDX 

•AZRESULT 

LDA 

A 

2,X 

[GET  MAG  VAL  OF  FPT 

LDA 

B 

3,  X 

STA 

A 

AZKEY 

STA 

B 

AZKEY+1 

RTS 

1  RETURN 

; END  TRGVALUE 


! u i ; m  ; ;  i :  i !  i  i  < n  ; : t  n ) ; mi  i m  1 1 1 * :  s ! 1 1 ; ; ; ; 1 1 1  i 1 1 1 ;  i  m  i » m  s  t 

"PUSH"  SUBROUTINE  -  MOVES  B  BYTES  OF  DATA  ONTO  APU  STACK  ; ; 

ENTRY:  ACCB  CONTAINS  •  BYTES  TO  PUSH  ONTO  STACK  [| 

ACCX  CONTAINS  ADDRESS  OF  MSBYTE  OF  DATA  TO  PUSH  ;; 

EXIT  I  DATA  WILL  BE  PLACED  ON  APU  STACK  SUCH  THAT  MSB  OF  || 

WILL  BE  TOS.  X-REQ  DESTROYED  .  ACCB  DESROYED  ;; 


immntmii 

M  M  M  M  1 1  1 1  M 

iiiimtiimiiimiiiiiiiiimimm  . 

PUSH 

PSH 

B 

(SAVES  THE  NUMBER  OF  BYTES 

PUSH1 

INX 

DEC 

B 

BNE 

PUSH1 

[BR  THRU  TILL  LAST  BYTE  REACHED 

STX 

TEMPX 

PUL 

B 

[RETRIEVES  •  BYTES  TO  BE  PUSHED 

PUSH2 

DEX 

[ACCESS  NEXT  ADD  TO  PUT  ONTO  APU  STACK 

LDA 

A 

o.x 

STA 

A 

APUDATA 

[ENTER  CURR  BYTE  OF  DATA  ONTO  APU  STACK 

C-30 


£>fcU  ti 

'  6NE  PUSH2 

LDX  TEMPX 

RTS 

i END  PUSH 

1 1 ;  i ;  1 1 ;  1 1 1 i 1 1 1 s 1 1 1 1 ;; s ; i ; 1 1 1 ; i s ; s 1 1 ; i ; i s 1 1  s  <  t  s ;;  i  s ;  i ;  s  1 1  s  i 

t(  "FLTS"  SUBROUTINE 

; |  CONVERT  16  BIT  FIX  PT  TO  32  BIT  FP 
; |  ENTRYs  16  FIXED  #  ON  TOS 
;;  EXIT  :  WHEN  APU  FINISHED 

i  in  i ;  1 1 ; ;  i ;  i ; ; ;  1 1 ; ; ; ;  i ;  s  i  s ; ;;  i ; ;  i ;  1 1  s  1 1 1 1 ;  i ; ;  1 1 1 1 1 1 ;  i  s  1 1 ; ; ; ; ;  1 1 1 1 1 ;  i 

FLTS  LDA  B  #1DH  I  LOADS  IN  FLOAT  OPCODE 

BRA  TSTEND  ;WAIT  TILL  APU  FINE 

i ) ;  1 1 ; ; ; ;  i ; ; ;  i ; ; ; ; ; ;  i ; ;; ;  1 1 1 1  s  i ;  I ; ;  i ;  1 1 1 1 ; ;  1 1 ; ;  1 1 ;  1 1 1 ; ;  1 1 1  m  i ;  i  m  1 1 1 
;;  "PTOF"  SUBROUTINE 
i  ;  DUF  TOS  AT  NOS 

; ;  ENTRY:  32  BIT  FP  #  AT  TOS 
l«  EXIT  :  WHEN  APU  FINISHED  , 

illlllllllliilllllilflllllllllllllllllllllllllllllllSIIllIllllIlIlIlIl 

PTOF  LDA  B  #17H 

BRA  TSTEND 

I  ' 

}  COS  SUBROUTINE 
;  32  BIT  FLOATING  COSINE 

:  ENTRY:  32  BIT  FP  AT  TOS 

;  EXIT  :  WHEN  APU  DONE 

COS  LDA  B  #3H  (LOAD  IN  COS  COMMAND 

BRA  TSTEND 

I  "popp"  SUBROUTINE  -  POP  NOS  INTO  TOS 
j  ENTRY:  32  BIT  FP  #  AT  TOS 
j  EXIT  :  WHEN  APU  DONE 

POPF  LDA  B  #18H 

BRA  TSTEND 

I 

!  "FMUL"  SUBROUTINE  -  32  BIT  FLOATING  POINT  MULTIPLIER 
I  ENTRY:  2  #"S  ON  TOS  AND  NOS 
I  EXIT  :  WHEN  APU  DONE 

I  ... 

FMUL  LDA  3  #12H 

BRA  TSTEND 

I 

:  "PULL"  SUB  -  REMOVES  B  BYTES  OF  DATA  FROM  THE  STACK 

;  ENTRY:  ACCB  =  #  BYTES  TO  BE  PULLED 

!  ACCX  -  ADDRESS  TO  WHERE  TOS  TO  BE  PLACED 

i  EXIT  :  WHEN  DONE 


PULL 

LDA  A 

APUDATA 

STA  A 
INX 

0,X 

DEC  B 

BNE 

RTS 

PULL 

* 

i  "SIN"  SUB  -  32 

BIT  FP  SIN 

; 

ENTRY:  32  BIT  FP  AT  TOS 

* 

EXIT  :  WHEN 

DONE 

SIN 

LDA  B 

«2H 

BRA 

TSTEND 

I 

;  "XCHF”  SUB  -  EXCH  32  BIT  OPERANDS  T09  AND  NOS 
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I  tNirvYi  bum  »  a  rlUSl  bt  UN  APU  S  1 ACK  EjEPOR  Xfcul 
(  EXIT  I  WHEN  DONE 

;  '  -  ’ 

XCHF  LOA  0  #19H 

BRA  TSTEND 

I 

}  “FADD"  SUB  -  32  BIT  FLOATING  POINT  ADDITION 
)  ENTRY:  BOTH  (TS  ON  STACK 
I 

FADD  LDA  B  *10H 

BRA  TSTEND  ' 

( 

>  "FSUB "  SUBROUTINE  -  32  BIT  FP  SUBRACT 
;  ENTRY:  BOTH  #“S  ON  TOS  AND  NOS 
)  EXIT  :  RESULT  ON  TOS 
FSUB  LDA  B  #1 1H 

BRA  TSTEND 

» 

(  “FDIV“  SUB-  DIVIDE  2  32  BIT  FP  #"S 
(  NOS /TOS 

j  ENTRY:  2  32-BIT  #"S  ON  NOS  AND  TOS 

; 

FDIV  LDA  B  #13H 

BRA  TSTEND 

; 

(  "TSTEND"  SUBROUTINE  -  LOOPS  UNTIL  ENDFLAG  FROM  APU  LOW  (PA7  OF  PIA2) 
;  ENTRY:  ISSUE  COMMAND  TO  APU 
i  EXIT  :  WHEN  APU  DONE 


TSTEND 

STA 

B 

APUSTAT 

;  ISSUES  COMM  TO  APU 

TSTEND1 

LDA 

BPL 

A 

DDRA3 

TSTEND1 

|CK  ENDFLAG 
(LOOP  TILL  LOW 

LDA 

RTS 

A 

APUSTAT 

; CLEAR  FLAG 

i 

:  "RESTO"  SUBROUTINE  -  RETURNS  THE  KEYBOARD  TO  AN  INITIALIZED  STATE 

I  SO  THAT  ANY  KEY  PRESSED  WILL  GENERATE  AN  INTERRUPT 

1 


RESTO 

LDA  A 

#OFH 

STA  A 

DORA 

(RESTORE  THE  ROWS  OF  KBD  FOR  NXT  KEY  PUSHED 

LDA  A 

DDRA 

(CLEAR  IRQ  BITS  IN 

CRA 

LDA  A 

#OFFH 

STA  A 

MFLAG 

(DIS 

CONTROL  LOOP 

RTS 

* 

;  " MOVED H  SUBROUTINE  -  INSERTS  A 

DECIMAL  POINT 

IN  FRONT  OF  LAST 

S 

BCD 

CHARACTER  (USED  IN 

ST30-33) 

? 

MOVED 

LDA  A 

DISEL+B 

LDA  B 

#2EH 

STA  B 

DISEL+B 

STA  A 

DISEL+9 

RTS 

I 

(  "CPFLAG"  SUBROUTINE  -  (MOD  1.1) 


( 

CPFLAG 

LDA  A 
CMP  A 
BNE 

TST 

BED 

3FLAGA 

COFFH 

CPI 

PFLAG 

CPI 

(LOOKS  AT  PROGRAM 
|BR  TO  CNTRL  LOOP 

FLAG 

IF  NOT  IN  PROGRAMMED  SEQ 

LDX 

JMP 

STADDR 

0,  X 

(YES, A  PROGRAMMED 
(JMPS  BACK  TO  THE 

SEQ  CURRENTLY  IN  OPERATION 
PROGRAMMED  CONTROL  LOOP 

CPI 

JMP 

STO 

(PROGRAM  FLAG  CLEARED, GOTO  CNTRL  LP 

;  "TSTANG"  SUBROUTINE 


032 


'  j  COMPARES  THE  TWO  ACCX"S  WITH  THE  CONTENTS  OF  THE 

|  INDEX  REGISTER.  RETURNS  FROM  SUB  IF  CONTENTS  OF 

;  INDEX  REGISTER  ARE  >  THE  CONTENTS  OF  THE  ACCX"S 

;  BRANCHES  TO  ERROR  6  IF  NOT 


I 

TSTANG 

LDX 

♦LIMIT 

JSR 

BCDSUB 

TST 

CARRY 

BMI 

NOPE 

JMP 

ST6 

NOPE 

RTS 

|BR  IF  ENTERED  ANGLE  EXCEEDS  LIMIT  OF  */-  40.0 


I  "BCDBIN”  SUBROUTINE 

•  CONVERTS  FOUR  BINARY  CODED  DECIMAL  DIGIT 

j  TO  A  BINARY  EQUIVALENT.  THE  BCD  DIGITS  ARE  PACKED 


V 

TWO 

PER  BYTE.  THE  BINARY  RESULT  OCCUPIES  TWO  BYTES 

THE 

BCD  DIGITS 

ARE  LOADED  INTO  THE  ACCA  AND  ACCB 

(MSD-ACCA)  AND 

THE  BCDBIN  SUBROUTINE  IS  CALLED. 

i 

THE 

ROUTINE  EXITS  WITH  THE  BINARY  RESULT  IN  ACCA 

i 

AND 

ACCB  (MOD  1 

.  1) 

BCDBIN 

STA  A 

SAVEl 

(SAVE  2  BCD  VALS 

CLR 

BINUPR 

TBA 

AND  B 

♦OFH 

1  SAVE  ONLY  LS  BCD  VAL 

LSR 

A 

LSR 

A 

LSR 

A 

LSR 

A 

TENLP 

BEQ 

DOHUND 

I GO  DOHUND  WHEN  TEN  IS  ZERO 

ADD  B 

♦  10 

; ADD  10  TO  BINARY  TOTAL 

DEC  A 

;  DEC  TENS  DIGIT  AND 

BRA 

TENLP 

■.REPEAT  UNTIL  0 

DOHUND 

CLC 

LDA  A 

SAVEl  . 

{GET  HUN  IN  THOU  DIGIT 

AND  A 

♦OFH 

(SAVE  ONLY  HUN  DIGIT 

HUNLP 

BEQ 

DOTHOU 

;D0  THOU  IF  HUN  IS  0 

ADD  B 

♦  100 

(ADD  100  TO  BINARY  VAL 

BCC 

HUNOO 

INC 

BINUFR 

(ADD  256  TO  BINARY  UPPER  VAL 

HUNOO 

DEC  A 

[DEC  HUN  DIGIT  ONE 

BRA 

HUNLP 

(REPEAT  TIL  0 

DO THOU 

LDA  A 

SAVE! 

(GET  THOU  DIGIT 

LSR  A 

LSR  A 

LSR  A 

LSR  A 

STA  A 

SAVEl 

(SAVE  THOU  DIBIT  '  . 

BN  E 

THOUOO 

(BR  IF  THOU  DIGIT  «  0 

LDA  A 

BINUPR 

(GET  BIN  UPPER  VAL 

BRA 

XITBIN 

THOUOO 

LDA  A 

BINUPR 

(GET  BIN  UPPER  VALUE 

THQULP 

CLC 

[RESET  CARRY 

ADD  B 

♦232 

(ADD  232  TO  BINARY  LOWER 

ADC  A 

♦3H 

(ADD  76B  TO  BINARY  UPPER 

DEC 

SAVEl 

[DEC  THOU  DIGIT 

BNE 

THOULP 

[REPEAT  TILL  THOU  DIGIT  -  0 

XITBIN 

RTS 

1 

,  “PACK 

•'  SUBROUTINE 

( 

PACKS 

BINARY  #"S 

INTO  BCD  FORM 

J 

ACCA- 

UNPACKED  BCD  FORM 

S 

DESTROYS  ACCA 

PACK 

ADD  A 

ENTRYB 

(ENTRYB  LOOKS  LIKE  "X0“ 

_ 

STA  A 

_  ENTRYB 

[PACKS  IN  ANOTHER  PCD  FORM 

033 


ASL 

LNl RYB 

ROL 

ENTRYA 

ASL 

ENTRYB 

ROL 

ENTRYA 

ASL 

ENTRYB 

ROL 

ENTRYA 

ASL 

ENTRYB 

ROL 

ENTRYA 

RTS 

|  "ALSTQP"  subroutine 

;  ROUTINE  THAT  STOPS  BOTH  MOTORS  FOR  EXCEEDING  AN8LE  LIMIT 

I 

AlSTOP  lda  a  #offh 

STA  A  LSBSAZ  | STOPS  AZ  MOTOR 

STA  A  LSBSEL  ( STOPS  EL  MOT DR 

RTS 
J 

;  " BCDSUB"  SUBROUTINE 

I  SUBTRACT  2  16-BIT  BCD  PACKED  #MS 

!  SUBTRACTS  INDEXED  ADDRESS  FROM  ACCA.ACCB 

j  .  INDEX  REG  CONTAINS  STARTING  ADDRESS 

(  ACCA.ACCB  CONTAINS  #  TO  BE  SUBTRACTED  FROM 

;  RETURN  RESULT  IN  ACCA.ACCB 

;  *******».*********»***»**** 

I  *  9999  * 

I  *  -IXRG  $ 

!  *  -  * 

i  »  DIFF  « 

i  *  +  1  * 

!  *  -  -  * 

i  *  DIFF+1  * 

(  *  +  BCD#  * 

.  *  -  * 

(  *  ANSWER  » 

•  tt******tt  **************** 

t 

1  BCS  TSTS  OV  CONDITION 

j  BCC  TSTS  NO  OV  CONDITION 


BCDSUB  OCR 

CMP  A 

BHI 

BNE 

CMP  B 

BHI 

SEQ 

SWAP  PSH  B 

PSH  A 
DEC 
LDA  A 
LDA  B 
TSX 

SU8T  STA  A 

STA  B 
LDA  A 
TAB 
SUB  A 
SUB  B 
SEC 
ADC  A 
DAA 


CARRY  5  RESET  CARRY  VALUE 

0,X  -.IS  CONTENTS  OF  ACC  A  BIGGER  ? 

SUST  ;  BR  IF  MINUEND '-SUBTRAHEND 

SWAP  ; BR  IF  MIN< 'SUBTRAHEND 

l.X  ; MSBYTE  OF  MIN=MSBYTE  OF  SuBTRAHEND 

SUBT  ; MIN: SUBTRAHEND 

SUBT  $  MIN=SUBTRAHEND  OK  TO  SUBTRACT.  AS  IS 

( SAVE  MIN  TEMPORARILY 

CARRY  I  SET  CARRY  BYTE  TO  DENOTE  OV 

0,X  s GET  SUBTRAHEND 

l,X 

(X  REG  POINTS  TO  MINUEND 
TEMPA  | SUBTRACT  SMALLER  FR  GREATER 

TEMPB  ,  (SAVE  GREATER  OF  2  #"S 
#099H 

! ACCB-99 

I,X  j  RESULT  ->  ACCA.ACCB  "9999" 

O,  X  (SUBTRACT  SMALLER  NUM  FROM  9999 

TEMPB  |LS  BYTE  OF  DIFF+LSBYTE  OF  GREATER  NUM 


PSH  A  (SAVE  LS  BYTE  OF  RESUL 

TUA  (MOVE  MSBYTE  OF  DIFF  INTO  ACCA 

ADC  A  TEMPA  (MSBYTE  OF  DIFF*  MSBYTE  OF  >  «  +  CARRY  BIT 
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;  ADDITION  OF  SHAENC  SUBROUTINE  -  CK  +  AND  -  AZ  LIMITS 
I 

STA  B  TEMPB  ! SAVES  ACCB  TEMPO 

LDA  B  SIGN  ; START  LIM  CK 

CMP  B  #2BH 

BEQ  PAL  ( BR  IF  AZ  COORD  + 

LDA  B  TEMPB  ;AZ  COORDS  - 

LDX  #NAZLIM 

JSR  BCDSUB  [ACCX-NAZLIM 

LDA  A  CARRY 

BNE  SHA2  ;BR  IF  ACCX>NAZLZM 

PALI  LDA  B  #OFFH  ;POSTITIONER  EXCEEDED  LIMIT 

STA  B  LFLAGA  : SET  AZ  LIMIT  FLAG 

LDX  #MSG1S 

JSR  ASCDIS  ! DISPLAY  "ANGLE  LIMIT  EXCEEDED" 

JSR  ALSTOP  (BR  TO  STOP  BOTH  MOTORS 

JMP  MSGB  ; WAIT  1  SEC  AND  GO  CNTRL  LP 

PAL  LDA  B  TEMPB  ; CK  FOR  +  AZ  LIMIT 

LDX  #PAZL IM  j  GET  ♦  AZ  LIMIT 

JSR  BCDSUB  ; ACCX-PAZLIM 

LDA  A  CARRY 

BEQ  PALI 

SHA2  LDA  A  SIGN 

.  '  STA  A  AZSIGN 

LDA  A  #04 1H 

STA  A  LETA 
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